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NTRODUCTION 


Here in your hands you hold a map to one of the most 
fascinating journeys you will ever take. Even if you have never 
touched a computer before you bought your VIC 28, we hope 
to share with you — step by simple step — the secrets of 
computer programming. 


It’s not going to be difficult. We've deliberately included a 
number of major games in the book, so after you've entered 
and run the games, you'll discover you've learned to program 
almost while you were not looking. It’s going to be painless and 
it’s going to be fun. 


‘The whole process is greatly simplified by the fact that you're 
learning on a VIC 20. Representing the leading edge of 
computer technology, the VIC 2@ is a computer that was 
designed to be friendly, and easy and rewarding to use. You've 
picked the best computer, and this book is the most direct route 
to programming expertise. 


Come on and join us now, as together we discover how you can 
make the most of your VIC 20. 


Tim Hartnell 
London, July, 1983 


A NOTE ON THE 
AUTHORS: 


Tim Hartnell is the most widely published author of books 
related to the Sinclair computers in the world. Founder of the 
British National ZX Users’ Club and its magazine Interface, he 
has written many books for the ZX80, ZX81 and ZX Spectrum. 
He is founding editor of the British bimonthly magazine ZX. 
‘Computing, and is involved in user-group activities in the US 
and UK. 


Mark Ramshaw is a schoolboy, with an active interest in VIC 
games. He has already written one book of VIC games, and is 
co-author of a games book for the Commodore 64. 


CHAPTER ONE 
DISCOVERING THE 
KEYBOARD 


You've just bought a great computer, and in this book we're 
Boing (0 show you how to get the most out of it. Don’t worry if 
this is the very first computer you have ever owned. We're 
going to take things slowly, and in small steps, so you'll have no 
trouble in keeping up with us. 


READ THE BOOK WITH YOUR COMPUTER 
TURNED ON 


It is vital that you have the computer turned on at all times when 
reading this book (or at least the first time you work throught. 
This is an ‘action book’, and unlike a novel, it is not designed 
simply to be read. This book is like a book on how to drive. You 
could never Jearn about changing gears, and how it feels 10 
handle an auto in traffic, without actually going out and taking 
command of a vehicle. So it is with your computer and this 
book. Try out each new command and function when it is 
explained to you, experiment with the games and other 
programs, and you'll find you're learning to program without 
even trying. 


THE KEYBOARD 


First we have to find our way around the keyboard. It looks 
pretty frightening the first time you look at it, but once you've 
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used it for an hour or so, you'll be surprised at how familiar it 
will become fo you. 


‘THE SHIFT KEYS 

‘The three most important keys on the keyboard are located in 
the bottom left hand corner (the key marked shift, and the key 
marked with the Commodore logo) and in the bottom right 
hand corner (marked shift). The two keys marked shift act the 
same. Find those three keys. 


Now connect up your computer as explained in the manual, 
and get the Commodore statement at the top of the screen. 
Press any of the keys and the main symbol printed on the key 
will appear on the screen. 


DELETE 

By now the screen may be looking pretty crowded, and 
If you look to the top right hand 
corner of the keyboard you'll see a key marked INST, DEL — 
the delete key. The important word for now isthe word DEL. If 
you hold down the DELETE key, and continue to hold itdown, 
you'll find it will move across the printed material to the left, 
erasing it as it goes. 


Another way of clearing up ‘rubbish’ like this from the bottom 
of the screen is to turn off the power for a short while, but as 
this causes the computer to forget the program which is in the 
computer, this is not advised. 


COMMODORE SHIFT 

If you hold down the Commodore shift key and continue to 

hold it down as you press another key, you'll find you get the 

left hand graphic character written on the front of the key 
ppearing on the screen. For example, if you press the F key 

the Commodore key, you get the bottom left hand corner 

graphic symbol printed on the screen. Inthe same way, pressing 


(CHAPTER ONE 3 


the G key and holding down the Commodore shift will get you 
the left hand line graphic. 


Try pressing a number of different keys. You'll see, in each 
case, that you get the graphic symbol on the left of the key 
printed on the screen. The Commodore shift, when used with a 
key without a graphic symbol on the left, acts like an ordinary 
shift key. 


NORMAL SHIFT 


Holding down the shift key and a normal key with a right hand 
graphic symbol will print the right hand graphic symbol on the 
screen (in much the same way as the Commodore shift 
produced the left hand graphic symbols). When used with the 
keys without graphic symbols on them, it will print the symbol 
above the main character on the key, ¢.g. shift with 2 gives the 
quotes symbol on the screen. 


Pressing the shift and Commodore keys together will switch 
between upper and lower case modes. Your VICisin upper case 
mode when switched on. In lower case mode, all program 
statements must be typed in lower case. The Commodore key 
will still print graphic symbols, but the normal shift will give 
capital letters instead of right hand graphic characters. 


There is still more. Don’t worry if this seems confusing. You'll 
be surprised at how quickly it will fall into place within half an 
hour or so of playing at the keyboard, 


CONTROL KEY 


The control key is the one labelled CTRL at the left of the 
keyboard. Pressing this with one of the numeric keys will give 
the colour typed on the key, or in the case of the 9 and @ keys, 
will give reverse on and reverse off modes. All future text will be 
printed in that colour until it is changed. Reverse on means that 
theletter’s foreground and background colours are swapped — 
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tryitand see. Reverse off goes back to normal text, Remember, 
you can’t see white writing on a white background, 


THE CURSOR 


‘The small square that flashes on and off on the screen is known 
asthe cursor. This shows you where the next thing that you type 
will be printed on the screen. The two keys at the bottom right 
of the keyboard are the cursor control keys. They move the 
cursor down and right, and up and left with shift key. This is 
useful because it means that if you have typed a command and 
you want the computer to repeat it again, all you have to do is 
move the cursor back up to the command you typed and press 
return again. The computer will think that you have typed the 
line again. 


At the top right of the keyboards the INST/DEL key. Wehave 
already seen how this deletes the character to the left of the 
cursor. When used with the shift key, it inserts. space to the left 
of the cursor to allow you to enter more text into an existing 
line. Remember the computer will not accept a line consisting, 
‘of more than eighty eight characters (four lines). To the left of 
this key is the CLR/HOME key. Pressing this makes the cursor 
g0 to the top left hand corner of the screen, Pressing it with the 
shift key clears the screen as well. 


QUOTES/INST MODE 


After typing a quotes character or inserting one or more spaces, 
the computer goes into a special mode which is mainly used in 
programs to format displays. When in this mode, pressing a 
colour, reverse on, reverse off, clear screen, cursor home or the 
cursor control keys will not perform the normal function, 
Instead, a weird graphic character is printed, each key having a 
different character. They also have numbers corresponding 
to them known as CONTROL CODES. When used in a 
program these control symbols/codes can be used to change the 
colour, format, etc. of the printout. The cursor can be moved 
around using the cursor controls inside a program to allow the 
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position where the next piece of writing will take place to be 
altered. This effect can be achieved by putting the symbols 
inside quotes or by using the statement known as CHRS(n) 
(where n is the control code needed). This means ‘character 
whose code is’, and is quite often used in a PRINT statement. 
More on this later. This mode is ended when another quotes 
symbol is typed, return is pressed or all the inserted spaces have 
been used. Note that delete will not work in INSERT mode. 


Here is a program to show you how the control symbols/ 
codes would be used in a print statement. It is intended to be 
used for reference, not to be typed in. 


10 PRINTCHRS(144); "CHANGE TO BLACK" 
15 PRINT" ~ CTRL i" 

20 PRINT CHR$ (5); "CHANGE TO WHITE" 
25 PRINT" a - CTRL 2’ 

3@ PRINT CHRS(28); "CHANGE TO RED” 

35 PRINT" ™ - CTRL 3° 

48 PRUNTCHRACIB2 fey TO CYAN” 
45 PR. - CTRL 4" 

58 PRINTERS 156); "CHANGE TO PURPLE” 
5S PRINT! ® - CTRL S" 

6@ PRINT CARS<(3@); “CHANGE TO GREEN” 
65 PRINT z 
7@ PRINT CHRS(3i) 
75 PRINT" 

88 Patel igets Cay = TO YELLOW" 
85 i 


rf s OFF" 
185 PRINT™ 8 - CTRL 8" 
119 PRINT CHRS(22) ; "DELETE" 
115 PRINT" - ~ INST/DEL* 
128 PRINTCHRS(148); "INSERT" 
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125 PRINT" @ - SHIFT INST/DEL" 
130 PRINT iisabseales cer z nOME” 

135 PRINT" 

142 PRINTCHRS( 147); ma 
145 PRINT" 
15@ PRINT CHRS(17); "CURSOR DObdN’ 
155 PRINT MW - CRSR DOWN" 

169 PRINTCHRS(145); "CURSOR UP” 

165 PRINT" 11 ~ SHIFT CRSR DOWN" 
17@ PRINT CHRSC23); "CURSOR RIGHT” 


175 Si ~ CRSR RIGHT 

188 PRINTCHRS(i57>5 "CURSOR LEFT" 

185 PRINT® HW ~ SHIFT CRSR RIGHT” 

198 PRINT CHRS(14>; "LOWER CASE MODE" 

i. PRINT" ~ ~ COMMODORE AND SHIFT 
4S" 


200 PRINTCHRS(142>; "UPPER CASE MODE* 


205 PRINT" - - COMMODORE AND SHIFT 
KEYS" 

210 PRINTCHRS(133); “Fi” 

215 PRINT" w- Fi‘ 

228 PRINTCHRS(124) 5 "F3! 

225 PRINT" bas Fs" 


238 FRINTCHRS (135); oF 
et a = PS" 
HRS (£3635 "F7" 


288 PRINTCHRS(149) FS" 


285 PRINT . 


SHIFT F7" 
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The function keys have no effect on the computers output. 
They can be checked from within a program, e.g. for use as 
controls in a game. 


Note that delete, upper case mode and lower case mode cannot 
be used in quotes but can be used in a CHRS(n) statement. 


The previous program showed how the symbols look in upper 
case mode, the symbols in lower case mode are shown here. 


18 Printchr$<(144)j"chanse to bla 


45 Print” @- ctrl 1° 
2@ Print chr$ (5); "chanse to white” 
25 Print" B= etri 2 


38 Print chr$(23);"chanse to red” 
35 Print" - ctrl 3" 

4@ Printchr$(159); "change to cyan" 
45 print" B- ctri 4" 

S@ Printchr$(i56);"chanse to Pure le” 
SS print” @-ctri 5° 

68 Print chr$(38); "change to sreen® 
65 Print" Wi - ctrl 6" 

78 Print chr$(31>;“chande to blue" 
7S Print’ B- ctri 7" 

88 Printchr$(i58);"chanse to velion" 
85 Print ?- ctri 8" 


90 Print chr$(16); "reverse ga" 


125 Print W- snift inst/det” 
139 Print chr$(i3)5 "cursor home" 
135 Print” § - clrvhome" 
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14@ Printchr$(147); "clear screen" 


145 Print” # - shift clrehome” 
158 Print che${17); "cursor down" 

155 Print” & - corse coun" 

163 Printchr$<i45)5 “cursor uP 

165 Print” M- shift crsr down” 
17@ Print chr$(29); "cursor right” 

175 Print” W- crsr_rigat® 

18@ Printchr$(157); "cursor ieft* 

185 Print” Wi - shift crsr rigat” 
193 Print chr$(14)i "lower case mode” 

195 Print” - - commodore and shift 
keys” 

208 Printchr$(142);"uPPer case mode” 
285 Print” - - commodore and shift 
keys" 

216 Printchr$¢133); "Fi" 

215 Print” a- fi 

220 Printchr$(154); "FS" 

225 print” a- 73 

234 Printchr${135);"F5" 

235 erint* B #5" 


Printches¢ 136); “re 
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Printchr$(1379;"F2 

255 Print” u- = shaft fe 
itches 


shift 3° 


“w shiet eS" 
280 Printchrs(i49); "F3" 
285 Print” B- shift f 
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ABBREVIATIONS 

The following is a list of abbreviations for many of the 
program statements and functions. These may seem strange 
but you will get to know them later on. The abbreviations 
can be typed in instead of the full command, but note that 
some functions include the first bracket (parenthesis) and 
some do not (all functions are followed by a number in 
brackets in a BASIC program). 


Command Abbreviation Command Abbreviation 


AND AshiftN PRINT —PshiftR 
NOT NshiftO READ RshiftE 

CLOSE —CLshiftO_ RESTORE —RE shift S 
CLR CshiftL RETURN —REshiftT 
CMD CshiftM RUN RshiftU 
CONT CshiftO SAVE Sshift A 

DATA Dshift A STEP STshiftE 
DEF DshiftE STOP SshiftT 

DIM Dshift SYS Sshift ¥ 

END EshiftN THEN TshiftH 
FOR FshiftO VERIFY —VshiftE 

GET GshiftE WAIT WshiftA 
GOSUB — GOshiftS_ ABS AshiftB 
GOTO GshiftO ASC AshiftS 

INPUT# — IshiftN ATN AshiftT 
LET LshiftE CHRS Cshift Ht 
List Lshiftt EXP EshiftX 
LOAD LshiftO FRE FshiftR 

NEXT Nshifté LEFTS LE shift F 
OPEN OshiftP MIDS Mshift1 

POKE PshiftO PEEK PshiftE 

PRINT =? RIGHTS — shift! 

RND RshiftN STRS STshiftR 
SGN SshiftG TAB TshiftA 
SIN Sshiftl USR UshiftS 

SPC( SshiftP VAL VshiftA 
SQR SshiftQ 


Note that PRINT } and INPUT 4 are not the same as PRINT 
and INPUT. ‘? #* will not work for PRINT #. 


CHAPTER TWO 
PUTTING THINGS ON 
THE SCREEN 


We pointed out in chapter one, when talking about the 
keyboard, that the shift keys (Commodore and normal shift) 
were the most important ones on the keyboard. We're 
now going to introduce the third most important one, 
RETURN. Whenever you're typing on the screen the computer 
will wait until you press RETURN before acting on the material 
you've entered. If you have written a program fine, the 
‘computer will ignore that line, and it will sit on the screen, with 
the cursor flashing patiently beside it, until you press 
RETURN. 


The same goes for the PRINT 2 you have on the screen. Until 
you press RETURN the computer will do nothing about it. 
Press RETURN now and you should see the number 2 appear 
below your command followed by ‘READY.’ This is how 
PRINT works. It takes the information which follows the 
command PRINT, with a few exceptions which we'll learn 
about ina moment, and PRINTs this on the screen, which after 
all is exactly what you'd expect it to do. 


But your computer is more clever than that. Ifthe word PRINT 
is followed by a sum, it will work it out before printing, and give 
you the result of that sum. Try it now. Enter the following line, 
then press RETURN (you'll find the plus key to the right of the 
number keys on the top row of the keyboard): 


CHAPTER TWO u 
PRINT 5+3 
You should see the figure 8 appear underneath. The computer 
added 5 and 3 together, as instructed by the plus (+) sign, then 
printed the result on the screen. It can do subtraction, as well 
(clever inventions, these computers). Type in this, and press 
RETURN to sce subtraction (and PRINT) at work (the ~ sign 
is to the right of the + key): 


PRINT 7-2 


Now, the computer can — of course — do a wide range of 
mathematical tasks, many of them far more sophisticated than 
simple addition and subtraction. But, there is a slight hitch. 
‘When it comes to multiplication, the computer does not use the 
X sign which you probably used at school. Instead, it uses an 
asterisk (*), and for division, instead of + the computer uses a 
slash sign (/). The asterisk (*) for multiplication is just below 
the ~ sign and the slash (/) for division is to the left of the right 
hand shift key. 


DOING MORE THAN ONE THING AT ONCE 

‘The computer is not limited to a single operation in a PRINT 
statement. You can combine as many as you like. Try the next 
‘one, which combines a multiplication and a division. Type it in, 
then press RETURN to see the computer evaluate it: 


PRINT 3583/2 


‘This seems pretty simple. Just type in PRINT, then type in the 
material you want the computer to PRINT, and that’s all there 
is toit. But, itis not as simple as that! Try the next one and see 
what happens: 


PRINT TESTING 


That doesn’t look too good. Instead of the word TESTING 
we've got a B (zero). The computer thought you were referring 
toa variable with the name ‘TESTING’. 
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We won't try to explain what has happened here, because 
variables are not on the curriculum for this chapter, but it 
‘means simply that the computer thought you wanted it to print 
a number, which had the name TESTING. Foolish machine. 
‘Computers may be very, very clever machines, but they need to 
beled by the hand, like a very stupid child and told exactly what 
‘you want them todo. Give them the right instructions, and they 
will carry them out tirelessly, and perfectly, without an error. 
But give them incorrect instructions, or — even worse — 
confuse them, and they give up in despair, or do something 
quite alien to your intentions. 


STRINGS 


Ifyou want the computer to print the word testing you must put 
quote, or speech marks around the words, like this: 


PRINT "TESTING" 


This time when you press RETURN, the word TESTING will 
appear on the screen. This is worth remembering. When you 
‘want the computer to print out some words, or a combination 
of words, symbols, spaces and numbers, you need to put quote 
marks around the material you want it to print. Information 
held in this way between quote marks is called a most peculiar 
‘name in computer circles. The jargon for information enclosed 
in quote marks is string. So, in our example above, the word 
testing, when enclosed by quote marks, is a string. 


OUR FIRST PROGRAM 

‘Type the following into your computer. Notice that each line 
starts with a number, Type this into the computer, then type in 
PRINT (or type in ? , the abbreviation for PRINT), get the 
‘opening quote marks from the 2 key (with the shift key) then 
type in the words which follow on the same line, then get the 
closing quote marks from the 2 key again. Then press 
RETURN. Instead of the line being executed, and the writing 
being printed, the computer stores the line and does not act on 
it. This is the first line of your first program. 
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26 PRINT"WENT UP THE HIL_" 
38 PRINT*TO FETCH A PAIL" 

48 PRINT*OF WATER" 

Type in the next line (the one starting with 28) and press 
RETURN once you have itall in place. Ifthe lineis not the same 
as printed here move the cursor back up to it and DELETE and 
INSERT as necessary as you were told in the first chapter. e.g. 
if you have typed JCK AND JILL, move the cursor over the C 
and press shift INST then press A to insert an A. If you had 
typed O instead of A for example, you could move the cursor 
over the O and retype A instead of deleting and then inserting. 
If you type a new line with the line number of an old one, it will 
replace the old line. You can also type in a new line, and the 
computer will insert it in the correct plce in your program. To 
see this in action, type the following line then press RETURN. 
‘Then type LIST, this will list your program so you can examine 
it: 


25 REM A LINE IN THE MIDDLE 


Now, the program will look like this: 


1@ PRINT "JACK AND JILL” 
20 PRINT "WENT UP THE HILL" 
25 REM A LINE IN THE MIDDLE 
3@ PRINT “TO FETCH A PRIL” 
40 PRINT "OF WATER" 


‘As you can see, the line numbered 25 has moved itself into the 
right position in the program, between lines 20 and 30. Now, 
RUN the program. 


MAKING REMARKS 


You should find that the new line, line 25, has not made any 
difference at all to the running of the program. Why not? Why 
did the computer decide to ignore line 25? The word REM 
stands for remark and is used within programs when we want to 
include information for a human being reading the program 
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listing. You'll find REM statements scattered throughout the 
programs in this book. In each and every case the computer 
ignores the REM statements. They are there only for your 
convenience, for the convenience of the programmer, or of 
‘someone else reading a program. 


Often you'll use REM statements at the beginning of the 
program, like this one: 


5 REM JACK AND JILL POEM 


You may wonder why this would be necessary. After all, itis 
pretty obvious that the computer is holding the ‘Jack and Jill 
poem’, even without the line 5 REM statement. You are right. 
In this case there is little point in adding a title REM statement 
to this program. But have a look at some of the more 
complicated programs a little further on in the book. Without 
REM statements you'd have a pretty difficult time trying to 
work out what the program was supposed to do, 


REM statements are often scattered throughout programs. 
‘There they serve to remind the programmer what each section is 
supposed to do. Once you've been programming a while, you'll 
be amazed at how many programs you'll collect in listing form 
which — when you go back to them in a month or so — will 
seem totally obscure. You won't have a clue how the program 
works, or even more important, what on earth it is, or what it is 
supposed to do. This is where you will find REM statements 
invaluable. 


Itis worth getting into good habits early asa programmer. So, I 
suggest you start right now adding REM statements to 
Programs. If you come across programs, or program 
fragments in this book, which you want to keep, and which do 
not have REM statements, get into the habit of using REM 
statements by adding them to these programs. And make sure 
you use them in your original programs. 
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BACK TO PRINT 

Let's return to the subject of the PRINT command. Empty 
your computer's memory by typing in the word NEW. Get the 
‘computer to act on that command by pressing RETURN. The 
computer will reply with the word ‘READY.”. Your computer 
is now empty and ready and waiting for its next task. 


MORE PRINT STATEMENTS: 


‘Type the following program into your computer and then run 
it: 


1@ PRINT 1,2 
15 PRINT 

2@ PRINT 15233 
25 PRINT - 
30 PRINT "VIC" 
35 PRINT 

4@ PRINT "23+34="°23+34 
45 PRINT 

$@ PRINT 283 
$5 PRINT 

69 PRINT 315 
65 PRINT 


7@ PRINT “THE ANSWER IS"; 23-776 


You should get something like this on the screen: 
1 2 


% 
cy 


¥IC 
23+34= 57 
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THE ANSWER IS 21.8333333 
Now there is a lot we can learn from this program. 


Firstly, as in the ‘Jack and Jill’ program, the computer 
executes a program line by line, starting at the lowest 
numbered one and proceeding through the line numbers in 
order until it runs out of numbers, when it stops. (You'll 
discover that this orderly progression of line numbers does 
not always apply, as there are ways of making the computer 
execute parts of a program out of strict numerical order, 
for the time being, it is best to assume that the program will 
be executed in order), 


Look first to line 18 of your program. You can see that there 
is a comma (which you will find on the bottom row of the 
keyboard). This has the effect of getting the computer to 
print the first number (1) on the left hand side of the screen, 
and the second number (2) at about the middle. When you 
use a comma like this to divide the things which follow a 
PRINT statement (but not when the comma is in a string, 
that is, between quote marks), it divides the screen into two, 
printing that which follows the comma starting at the next 
available half of the screen. If the line had read PRINT 1,2,3 
it would have printed the 1 at the start of the first line, the 2 
at the start of the second half of the first line, and the 3 
underneath the one, because this was the ‘next available half 
screen’. If you're not too clear what we mean by this, try it 
yourself, 


The second line of the program (line 15) is just the word 
PRINT with nothing following it. This has the effect, as you 
can see in the printout (and on your television screen), of 
putting a blank line between those lines which do include 
material after the word PRINT. (The same comment applies 
to lines 25, 35, 45, 55 and 65). 
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Line 20 has three numbers (1,2 and 3) separated not by commas 
{as in line 18) but by semicolons. Instead of separating the 
output of the numbers as the comma did, you'll see that it 
causes them to be printed with two spaces between each one. 
You use the semicolon (;) when you want some printed material 
to follow other printed material without a break. 


Line 3@ is the word VIC and this is a .... .. If you 
mentally said s/ring when you came to those dots, then you're 
learning well, This word is a string, in computer terms, because 
it is enclosed within quote marks. 


Line 40s rather interesting. For the first time we have included 
numbers and a symbol (=) within a string. As you can see, the 
computer prints exactly what is within the quote marks, but 
‘works out the result of the calculation for the material outside 
the quote marks, giving — in this case — the result of adding 23 
to 34. Try to remember that the computer considers everything 
within quote marks as words, even if it is made up from 
numbers, symbols, or even just spaces, or any combination of 
them, while it counts everything that is nof within quote marks 
in a PRINT statement as a number. This is why it got so upset 
earlier when we told it to print TESTING without putting the 
word in quote marks. It looked for a number which was called 
TESTING, and because it could not find one (as we had not 
told the computer to let TESTING equal some numerical 
value), so it assumed it was equal to zero. So line 46 treats the 
first part, within quote marks, asa string, and the second part, 
outside quote marks, as numerical information which it 
processed. 


In line $8 we see the asterisk (*) used to represent multiplication 
and the computer quite reasonably works out what 2 times 3 is 
and prints the answer 6. In line 60 we come across a new, and 
strange sign, a little upward arrow. This means ‘raise to the 
power’ so line 60 means PRINT 3°. Now, it is pretty difficult 
for a computer to print a number half way up the mast of 
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another number, so we use the upward arrow to remind you (by 
pointing upward) that it really means ‘print the second number 
up in the air’. You probably know that 7? is read as ‘seven 
squared’. It means to raise seven to the second power. In a 
similar way, 3° means raise three to the fifth power which is 
exactly what the computer does in line 60. 


‘The final line of this program combines a string (‘the answer 
is’) with numerical information (23+ 5-7/6). You can see 
that, as expected, the computer works out the sum before 
printing the answer, and prints the string exactly as itis. 


Numbers are printed with a space following them where as 
strings are not. Positive numbers have a space before them as 
well, but this is replaced by a * ~’ for negative numbers. This is 
why there are two spaces between two positive numbers printed 
by the computer: the trailing space of the first number and the 
preceding space of the second. Strings are printed with no 
spaces between them unless they contain spaces themselves. 


‘That brings us to the end of the second chapter of the book. 
We're sure you'll be pleased at how much you've learned so far, 
and are looking ferward to continuing your learning. But now 
you've earned a break. So take that break, and then come back 
to the book to tackle the third chapter. 


CHAPTER THREE 
RINGING THE 
CHANGES 


It’sall very well getting things onto the computer’s screen as we 
learnt to do in the last chapter, but from time to time you'll 
discover we need to be able to get printed material offthe screen 
during a program, to make way for more PRINT statements. 
We do this with a control code, number 147. 


CLEAR THE SCREEN 

Enter the following program into your computer and run it. 
You'll find the dollar sign after the A in line 20 on the 4 key 
You get the dollar sign by holding down the shift key while 
pressing the four key. 


19 PRINT "TESTING" 
20 INPUT AS 
38 PRINT CHRSC147) 


When you run the program, you'll see the word TESTING 
appear on the screen, more or less as you'd expect 


TEST INS 


However, underneath this you'll see a question mark and the 
cursor blinking merrily to itself: 
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This is an input prompt. An input prompt, which appears ina 
program when the computer hits the word INPUT, means the 
computer is waiting for you to enter something else into the 
computer, or just to press RETURN. You'll recall that we 
spoke earlier about strings and about how they were anything 
which was enclosed in quote marks. The computer signals that 
it is talking about a string by using the dollar sign. So line 28 is 
waiting for a string called AS to be input by you. 


Anyway, when you respond to the input prompt by pressing 
RETURN, you'll see the screen clears, and TESTING 
disappears. Where did it go? We pointed out that the computer 
works through a program in line order. Firstly, with this 
program, it printed TESTING on the screen, then progressed 
to line 20, where it waited for an input (or for you to press 
RETURN). Once you'd done this in line 20, it moved along to 
line 38 where it found PRINT CHRS(147). The instruction was 
to clear the screen, so the computer did just that, and the screen 
went clear. 


Run the program a few more times, until you've got a pretty 
g0od idea of what is happening, and you've followed through 
— in your mind — the sequence of steps the computer is 
executing. 


DOING IT AUTOMATICALLY 
Instead of waiting for you to press RETURN, you can write a 
program which clears the screen automatically, as our next 
example demonstrates. Enter this next program into your 
computer, press RUN, then RETURN, and sit back for the 
Amazing Flashing Word demonstration. 
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1@ PRINT "RUTOTESTING" 
26 FOR A=1 TO 100 


3@ NEXT A 

42 PRINT CHRS(147) 
5@ FOR TO 123 
62 NEXT A 

78 RUN 


Run this program, and you'll see the word AUTOTESTING 
alternately flashing off and on at the top of the screen. What is 
happening here? Let's look at the program, and go through it 
line by line. Firstly, as you know, line 10 prints 
AUTOTESTING at the top of the screen. Next, the computer 
comes to line 20, where it meets the word FOR. We'll be 
earning about FOR/NEXT loops (as they are called) in detail 
in a later chapter, but all you need to know here is that the 
computer uses FOR/NEXT loops for counting. In this 
program lines 20 and 30 (for FOR isin line 28, the NEXT in line 
30) tell the computer to count from one to 148, before moving 
‘on. As you can see, it does this counting pretty quickly. 


So, it waits for a moment while counting from one to 100. Then 
it comes to line 48, which tells the computer to clear the screen. 
It does this, and A UTOTESTING disappears from the screen. 
The computer then encounters, in lines 50 and 60, another 
FOR/NEXT loop, so waits a while as it counts from one to 106 
again. Continuing on in sequence, it comes to fine 78, where it 
finds the word RUN. Now, as you know, you get the computer 
to execute a program by pressing RUN, followed by RETURN. 
But RUN is a command, so there is no reason why you cannot 
use it within a program, as we have in line 70 of this program. 
When the computer comes to line 70, it obeys the command, 
and RUNs the program again, so that it goes through the 
AUTOTESTING printing, counting to 100, clearing the 
screen, counting to 108 again, and then hitting RUN so that the 
whole dance starts over. 
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EDITING 


As was discussed in chapter one, your VIC is provided with a 
screen editor which makes it very simple to change the contents 
of lines within a program. NEW the current program, then 
enter the following program into your computer. Do not type 
RUN. We want toexplain something about the program before 
you do: 


1@ REM AN EDIT TEST 
20 PRINT "TEST AGAIN” 
30 PRINT "AND AGAIN" 


Asalways, the cursor is flashing where the computer expects its 
‘next input. Move the cursor around the screen using the cursor 
control keys as described in chapter one. Note that if you keep 
them held down, they repeat, this is also true of the insert and 
delete keys and the space bar. NOTE: you can make alll the keys 
repeat with the command POKE 65,255. You can return to 
normal by typing POKE 60,0. Remember to press RETURN 
in each case after each line. If you clear the screen, you can 
obtain a listing of your program with the command LIST 
{followed by RETURN of course). Using the control keys, 
move the cursor to the beginning of line 18. You can now 
change, or line. Using the cursor right key, move the 
cursor along line 19, noticing how the symbols underneath it 
flash between normal and reverse mode. It should look 
something like: 


18 REM AN 


iT TEST 


Move the cursor right to the end of the line and use the DELete 
key tocrase all the letters after the word REM. Now type in new 
words, so the line reads: 


13 REM SN EDIT CHANGE 


When you have done this, press RETURN as if you had just 
finished entering a standard line of program. Then move the 
cursor down to below the last line of the program. Type LIST 
and you should see the program with line 18 changed. Before 
you read on, spend some time changing lines 18, 28 and 30, 
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until you're completely familiar with the use of the cursor 
control keys. 


GETTING THE PROGRAM BACK 


You'll notice that, after you're RUN a program, the listing of 
the program may have scrolled off the top of the screen. Scroll 
is a term used to describe what happens when the computer 
prints past the bottom line of the screen and the display moves 
up a line to compensate for this. This results in the loss of the 
top line of the display. As was mentioned before, typing LIST 
will give you a listing of your program, Try it now with the 
program you have in your computer. 


There is no reason why you must LIST from the start of a 
program. This is a very useful feature when you havea program 
which is so long that not all of it will fit on the screen at once. 
Type in LIST 2@ and press RETURN. You'll see line 28 appear 
‘on the screen. You may also type in LIST 20, this lists from 
line 20 onwards; LIST —28, this lists up to line 20; and LIST 
18—28, this lists all the lines between 10 and 28. Of course you 
can use any line numbers with list, so long as they are not 
negative or too big. If the line number specified after the word 
LIST does not exist, the computer will go to the next available 
number, and LIST from there. 


USING THE PRINTER 

When using the printer, you must make sure it is switched on 
otherwise you might loose your program altogether from the 
VIC and have to switch off and on again. First of all, after 
switching your printer on, you must open a file to the printer. 
Thisisdone with the command: OPEN 1,4,0the first number is. 
known as the logical file number — it can be any number 
between 1 and 255, but you must always use the same number 
when you address the printer. The second number is the device 
number and can be either 4 or 5, depending on the setting of the 
switch at the back of the printer. The third number is known as 
the secondary address and.can be either @ or 7. When@, printing 
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‘occurs in normal mode, and when 7, printing occurs in lower 
case mode. If you simply want to print something on the 
printer, you can use the command: PRINT #1, data. The 
number is the same number as the logical file number in the 
‘open command. Anything after the comma, is printed on the 
printer instead of the screen as in a normal PRINT statement. 
Note that control codes do not work on the printer, it has its 
own special control codes which are listed in the printer 
manual. So a command like: PRINT #1, “HALLO” would 
print “HALLO to the printer (assuming a file has already been 
opened). If you want to list your program, or simply get output 
on the printer from a normal PRINT command, you can use 
the command: CMD 1. This sends all subsequent output from 
the computer to the printer instead of the screen. The number 
is, once again, the logical file number. From now on, any lists 
of prints should go to the printer. If you want to bring output 
back to the screen use the PRINT # with the logical file number 
and no data. After this, only data printed using the PRINT 
command will be sent to the printer. When you are ready to 
stop printing altogether, you must close the file with the 
command: CLOSE 1. This sets the computer as if you had 
never opened the file. The number is the logical file number 
used in all previous work. It is a good idea to type PRINT #1 
without data before closing the file. Note that the number is, 
yet again, the infamous logical file number. The next example 
will open the file whose number is 2 and demonstrate what you 
have learnt: 


73 PRINT" 13 

8Q PRINT" STATEMENT" 
50 PRINT#2, “BUT 
103 PRINT#2,"! 


NTH STATEM 
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110 PRINT#2 
12@ CLOSE 2 


HI THERE, I°M VIC 


THIS IS THE VIC PRINTER 


THIS IS FROM A NORMAL 
STATEMENT 

BUT THIS IS FROM A 
PRINT# STATEMENT 


CHAPTER FOUR 
DESCENT INTO 
CHAOS 


It’s time now to start developing some real programs. You'll 
notice that from this point on in the book there are some rather 
Jengthy programs. Many of them will contain words from the 
BASIC programming language which have nor been explained. 
This is because, as programs become more complex (and far 
more satisfying to run) it becomes more and more difficult to 
keep programming words which have not been explained out of 
the program. However, it is not a major problem: 


We are working methodically through the commands available 
on the computer, and in due course, all of them will be covered, 
When you come across a word in a program which seems 
unfamiliar, just enter it into the program. You'll find that 
you'll soon start picking up the meaning of words which have 
not been explained, as you see how they are used within a 
program. So, if you find a new word, don’t worry. The 
programs will work perfectly without you knowing what the 
word is, and investigating the listing after you've seen the 
program running is likely to allow you to work out what it 
means anyway. 


RANDOM EVENTS 


In the world of nature, as opposed to the manufactured wor 
of man, randomness appears to be at the heart of many events. 
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‘The number of birds visible in the sky at any one time, the 
fact that it rained yesterday and may rain again today, the 
number of trees growing on one side of a particular 
mountain, all appear to be somewhat random. Of course, we 
can predict with some degree of certainty whether or not it 
will rain, but the success of our predictions appears to be 
somewhat random as well. 


When you toss a coin in the air, whether it lands heads or 
tails depends on chance. The same holds true when you 
throw a six-sided die down onto the table. Whether it lands 
with the one, the three or the six showing depends on random 
factors. 


Your computer has the ability to generate random numbers 
which are very useful for getting the computer to imitate the 
random events of the real world. The word to do this is 
RND(I). The number in the brackets can be any positive 
number but there must be a number there. It is usually @ or 1. 


GENERATING RANDOM NUMBERS 

‘We'll start by using RND just as it is to create some random 
numbers. Enter the following program, and run it for a 
while: 

1@ PRINT RNDC1) 

20 GOTO 19 


When you do, you'll see a list of numbers like these appear 
on the screen: 


. 185564016 
468996348 
- 927743981 
«554749226 
897233831 
. 572916243 
- 830893164 
+ 9312296: 
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- 138382069 
«97293994 

«776433747 
«417988108 
+829277551 
889331095 
+ 967128073 
+ 426860658 
+ 964234364 
«770348712 


As you can see, RND generates numbers randomly between 
zero and one. If you leave it running, it will go on and on 
apparently forever, writing up new random numbers on the 
screen. 


Now random numbers between zero and one are of limited 
interest if we want to generate the numbers and get them to 
stand for something else. For example, if we could generate I's 
and 2's randomly, we could call the 1's heads and the 2's tails 
and use the computer as a kind of electronic ‘coin’. If we could 
get it to produce whole numbers between one and six, we could 
use the computer as an imitation six-sided die. 


Fortunately, there is a way to do this. Enter the next program 
and run it. You'll get the parenthesis on the 8 and 9 keys (and 
you get them by holding down the SHIFT key while pressing 
the 8 and 9). There is a single space between the quote marks at 
the end of line 18. You get the space just by pressing the space 
bar. 


1@ PRINT INTCRND(1)86+1); “ 
20 GOTO 19 


When you run this program, you'll get a series of numbers 
(chosen at random between 1 and 6) like these: 
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39421222 
54122636 
126555 4 
4131362 


Even though we can create vast series of numbers between 1 
and 6 with a program like this, itis not particularly interesting. 
‘And, if you ran the program over and over again, you might 
find that the sequence of numbers may start to become a little 
familiar. The random numbers may stop looking so random. 


This is because the computer does not really generate random 
numbers, but only looks as if it is doing so. Inside its electronic 
head, the computer holds a long, long list of numbers, which it 
prints in order when asked for random numbers. The list is so 
long, it is almost impossible to see any pattern or repetition in 
it. However, this is often not quite good enough. Some 
programs demand numbers which are as close as possible to 
genuinely random, 


SEEDING THE RANDOM NUMBER 
GENERATOR 


Fortunately, we can do this on our computer. This is done by 
putting a negative number in between the brackets in the RND 
statement. What it does is choose a starting position 
somewhere in this list, instead of starting at the beginning of the 
list, There is a number stored in the computer called TI. This 
the time the computer has been on in 60ths of a second. Thus 
typing LET A = RND(—TI) will choose a starting position in 
the list unknown to anyone. We can seed the random number 
generator in three ways: 
1 Just enter LET A = RND(-TI) before you run a 
program, which will seed the random number generator 
(by ‘seed” we mean start it off in a random position within 
the list). 
2 Include the above line somewhere in a program 
(preferably at the beginning), so it occurs every time you 
run a program. 
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3 Includeit withinaprogram,andgettheprogramtoask fora 
‘seed’. A sced, in this case, is just a number the user enters. 
Eachtimeyouenterthesameseed, you'ligetthesameresult. 
Becarefultomaketheseed negativeifitispositiveandif 
toosmall then get the program toask for another seed. The 
lines might look something like this (the statements will be 
explained later): 


'5Q INPUT "SEED";SE:IF SED@ THEN SE=-SE 
55 SE=RNDCSED 


Now this possibly seems confusing. But, don't worry, it will 
become clear, and the next two programs are designed to help 
make it clear. 


FAST FOOD CRAZINESS 

Enter and run the next program, which makes an interesting 
use of the computer's ability to generate random numbers. As 
you can see, it creates a scene where you have turned up at a fast 
food outlet, desperate for something to eat, and you've decided 
to let random number generator pick your food for you: 


fel a WITH THE LOT" 
fA=2 THEN PRINT"A LARGE FRENCH FRIES" 
A=3 THEN PRINT"R SERVE OF RIBS" 


When you run this, you'll get something like this list of food on 
the screen: 
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YOU'VE ORDERED 
TWO HOT DOGS WITH KETCHUP 


YOU'VE ORDERED 
TWO HOT DOGS WITH KETCHUP 


YOU'VE ORDERED 
fi LARGE FRENCH FRIES 


YOUVE ORDERED 
A SERVE OF RIBS 

Notice how, as was mentioned previously, the screen scrolls (or 
rolls upwards) when the writing gets to the bottom of the 
screen. You may slow this ‘scrolling’ down by keeping a finger 
‘on the CTRL key at the far left of the keyboard while the 
program is running. To stop the program use the key marked 
RUN/STOP just below the CTRL key. The program will stop 
and the computer will say something like ‘BREAK IN LINE 
30°. Incidentally you can also stop the program by keeping one 
finger on the RUN/STOP key and another on the key marked 
RESTORE at the right hand side of the keyboard. This restores 
your VIC without losing your program. Notice how the 
program sets the letter A to the value of the random number i 
Tine 30. In this case, the letter A is standing for a number. It is 
called a variable, or, because it stands for a number (as opposed 
to standing for a word, or a string) it is called a numeric 
variable. In computer jargon, we say that, (in line 38) the 
computer has assigned the value of the random number to the 
variable A. And, as you can sce in line 58, 60, 7 and 80, the 
value assigned to A determines which food order you piace. 
Read this over if it seems incomprehensible the first time. 


PLANTING A SEED 

Now, we are going to modify the program, using the cursor 
control keys which we discussed earlier. Change your original 
program, so it looks like this, modifying some lines and adding 
others. You'll find the single apostrophe (*) on the 7 key: 
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1@ REM FAST FOOD 

15 PRINT "ENTER RANDOMIZE" 

20 INPUT "SEED"; A: IF AD@ THEN R=-A 

25 A=RNDCAD 

3@ LET RSINTCRND( 18441) 

35 PRINT “xotd";A 

48 PRINT “YOU’VE ORDERED" 

5@ IF. A=1 THEN PRINT"A HAMBURGER WITH THE LOT” 
60 IF A=2 THEN PRINT"A LARGE FRENCH FRIES" 

70 IF R=3 THEN PRINT"A SERVE OF RIES" 

8@ IF A=4 THEN PRINT*TWO HOT DOGS WITH KETCHUP” 
96 FOR I=1 TO 1@@:NEXT 

108 GOTO 28 


When you run this, the computer will stop and the words 
ENTER RANDOMIZE SEED will appear on the screen. This 
isan input prompt. When you place words in quote marks after 
the word INPUT, they appear on the screen to tell you what 
kind of input the computer expects. In this case, because the 
letter A after the semicolon at the end of line 20 does not have 
a dollar sign after it (that is, itis not a string), the computer is 
expecting you to enter a number. You can enter any number 
you ike, and you'll soon discover which numbers toenter to get. 
the food you want. 


‘The display on the screen looks like this when the program is 
running, with the random number generated in line 30 printed 
by line 35. 


YOUVE GRDERED 

TWO HOT BOGS WITH KETCHUP 
SEED 1 

YOUVE ORDERED 

fi HAMBURGER WITH THE LOT 
SEED 2 
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YOU’YE ORDERED 
A LARGE FRENCH FRIES 


YOU'VE ORDERED 


Notice how easy it was to modify the program. Have a look at 
line 98. This is called a LOOP and will be discussed in greater 
depth in the next chapter. All it does is count from the first 
number to the second, producing a delay. The bigger the 
second number the longer the delay. This is very useful for 
pacing the running of a program to suit you. 


CHAPTER FIVE 
ROUND AND ROUND 
WE GO 


In this chapter we'll be introducing a very useful part of your 
programming vocabulary — FOR/NEXT loops. You'll recall 
that we mentioned FOR/NEXT loops when demonstrating 
clearing the screen. There, a loop was used to add a delay after 
the word was printed on the screen before the screen was 
cleared, 


A FOR/NEXT loop is pretty simple. It has the form of two 
lines in the program, the first like this: 

FOR APL TO 20 

And the second as follows: 

NEXT A 


‘The control variable, the letter after FOR and after NEXT 
must be the same. 


AsaFOR/NEXT loop runs, the computer counts from the first 
number up to the second, as these two examples will show 

1@ FOR Rel TO 200 

2@ PRINT A; 

3@ NEXT A 


When you run it, this appears on the screen: 
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12 
8 9 1@ 12 13 
Here’s another version: 


1@ FOR AS765 TO 781 

20 PRINT A; 

38 NEXT A 

And this is the result of running it: 
765 766 767 768 7 
69 778 771 772 773 
774 77S 776 777 
778 773 768 781 


STEPPING OUT 

In the two previous examples, the computer has counted up in 
ones, but there is no reason why it should do so. The word 
STEP can be used after the FOR part of the first line as 
follows: 

19 FOR A=1 TO 109 STEP 10 

29 PRINT As 

3@ NEXT A 


When you run this program, you'll discover it counts 


{probably as you expected) in steps of 1, producing this 
result: 

10 28 38 48 56 6 

@ 72 88 90 100 
STEPPING DOWN 


‘The STEP does not have to be positive. Your computer is just 
as happy counting backwards, using a negative step size: 

1@ FOR A=iea TO 10 STEP -10 

20 PRINT A; 

38 NEXT R 


‘This is what the program output looks like: 
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58 40 38 2e 18 
MAKING A NEST 
It is possible to place one or more FOR/NEXT loops within 


cach other. This is called nesting loops. In the next example, the 
B loop is nested inside the A loop: 


1@ FOR A=1 TO 3 

20 FOR B=1 TO 2 

3@ PRINT Aj "TIMES": Bs "1S" 7 ROB 
48 NEXT B 

5@ NEXT A 


‘The nested programs produce this result: 


1 TIMES 115 2 
1 THES 2152 
2 TIMES 1 IS 2 
2 TIMES 2 IS 4 
3 TIMES 1 IS 3 
3 TIMES 2 IS 6 


‘You must be very careful to ensure that the first loop started is 
the fast loop finished. That is, if FOR A... was the first loop 
you mentioned in the program, the last NEXT must be NEXT 
A. 


Here’s what can happen if you get them out of order (the Bloop 
ends after, rather than before, the A loop): 


42 NEXT A 
SQ NEXT B 
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QNEXT WITHOUT FOR 
ERROR IN 53 


MULTIPLICATION TABLES 

You can use nested loops to get the computer to print out the 
multiplication tables, from one times one right up to twelve 
times twelve, like this: 

19 FOR Rel TO 12 

20 FOR Bet TO 12 

38 PRINT A; "TIMES" 3B; "1S" 3AMB 


48 NEXT B 
5@ NEXT A 
Here's part of the output: 
1 TIMES 1 IS 1 
1 TIMES 2 IS 2 
1 TIMES 3 1S 3 
1 TIMES 4 IS 4 
1 TIMES 5 IS 5 
1 TIMES 6 IS 6 
1 TIMES 7 15 7 
1 TIMES 9 15 8 
1 TIMES 9 IS 9 
1 TIMES 1@ IS 18 
1 TIMES 11 IS 11 


There is no reason why both loops should be travelling in the 
same direction (that is, why both should be counting upwards), 
as this variation on the times table program demonstrates: 

19 FOR Ae1 TO 12 

28 FOR B=12 70 1 STEP -1 

38 PRINT Aj "TIMES" 3B; "1S" / AaB 

40 NEXT B 

50 NEXT A 


Here's part of the output of that program: 
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TIMES 12 IS 12 
TIMES 11 IS 11 
TIMES 18 IS 10 
TIMES 9 IS 
TIMES 8 IS 
TIMES 7 IS 
TIMES 6 IS 
TIMES 5 IS 
TIMES 4 IS 
TIMES 3 IS 
TIMES 2 1S 


CRACKING THE CODE 

It’s time for our first real program. In this program which uses 
several FOR/NEXT loops, CODEBREAKER, the computer 
thinks of a four-digit number (like $462) and you have eight 
guesses in which to work out what the code is. In this program, 
written by Adam Bennett and Tim Summers, you not only have 
to work out the four numbers the computer has chosen, but 
also determine the order they are in. 


NOSUAVOD 


After each guess, the computer will tell you how near you are to 
the final solution. A ‘white’ is the right digit in the wrong place 
in the code, a ‘black’ is the right number in the right place. 
You'll see that you are aiming to get four blacks. When you 
have, you have cracked the code. Digits may be repeated within 
the four-number code. Enter the program, and play a few 
rounds against the computer. Then, return to the book for a 
discussion on it, which will highlight the role played by the 
FOR/NEXT loops. (Note that the word BLACK in line 380 is 
printed in black and reversed by the use of control codes. These 
are used throughout the program. Note also the PRINT 
statements with nothing following them (e.g. line 26). These 
make the computer miss a line, they also make the computer 
print in normal mode if it was in reverse before. The practical 
‘upshot of all this is that there is no need, in this instance, for a 
REVERSE OFF control code. 
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5S POKE36879, 138 

16 PRINTCHRS( 147) | "TheeeeeROeeeEHR OHRID” 
20 PRINT 

3@ PRINT 

48 PRINT" CODEBREAKER” 
45 PRINT" BY A.J.B. AND T. 
ell 

68 PRINT 

76 PRINT” WHEN YOU ARE TOLD TO"; 

€2 PRINT"DO SO, ENTER A 4-DIGIT"; 

90 PRINT"NUMBER AND THEN PRESS"; 

102 PRINT"RETURN. DIGITS CAN BE"; 

118 PRINT"REPEATED YOU HAVE 8"; 

12@ PRINT" GOES TO BREAK THE “; 

130 PRINT"DIFFICULT CODE." 

148 PRINT: PRINT UPR SEES RO One 
145 Tis="eea0e0" 

147 IFTIC42QTHENLE? 

15@ PRINTCHRS(147) 

168 DINB<4) 


199 FORAS1T94 

208 LETBCAD=INTC1@MRNDC1)? 

218 NEXTA 

228 FORC=1T08 

238 PRINT"RENTER GUES NUMBER "C+ IKPUTX 
248 IFXDSS99THENGOTOZO 

252 PRINT 

268 IFINT(X/1808)=Q7HENPRINT"2" ; 


298 Q=INT<<X-1880#P > / 182) 
308 RINT ((X-100QKP~1 28680 / 
318 S=(N-18208P-18080-108R> 


1) 
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328 DCi=P 
33@ DC29=0 
346 D(3D=R 
35@ D¢4)=S 
368 FORE=1T0¢ 
370 IFDCE)<>BCE> THENGOTO420 
338 PRINT" MEBLACK" > 
398 BCED=BCE)+12 
408 DCED=DCEd +20 
418 HebeL 
429 NEXTE 
438 IFH=4THENS3@ 
44@ FORF=1T04 
458 D=DCF> 
468 FORG=1TO4 
478 IFDOBC(G)THENS19 
480 PRINTS @HITE"; 
498 BCG)=BCG) +13 
ea GOTaS2a 
S18 NEXTS 
520 NEXTF 
538 FORG=1TO4¢ 
548 IFBCG)<i@THENSEO 
550 B¢G)=B(G)~18 
NEXTS: 
578 H=@ 
580 PRINT 
598 NEXTC 
698 PRINT 
6@2 PRINT 
602 PRINT“@YOU DIDN’T GET IT. 
610 PRINT’THE ANSWER IS "; 
615 H=BCi)#1000+3(2)#103+8¢3)¥10+B64) 
616 FRINTH 
620 SOTAS39 
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630 PRINT 
635 PRINT"MYOU GOT THE ANSWER IN "jC" GOES"' 
999 END 


Here’s what the screen looks like after one round. 


Lill Sua 
ENTER GUESS NUMBER 6 


1222 aaa 
ENTER GUESS NUMBER 7 


1333 a 
ENTER GUESS NUMBER 8 


1444 OUSINEN 


YOU DIDN’T GET IT... 
THE ANSHER IS 1974 


We'll now go through the program line by line, a practice we'll 
be following for several of the programs in this book. If you 
don't want to read the detailed explanation now (and there may 
be parts of it which are a bit difficult to understand at your 
present stage), by all means skip over the explanation and then 
come back to it later when you know a little more. 


Lines 10 and 140 print a number of asterisks to rule off the title 
and instructions, with blank lines printed by lines 20, 30, 6@ and 
250. After the title is printed by line 49, it is ‘underlined’ by a 
series of graphics available from the I key. You'll probably 
remember from chapter one how to get graphics. All you do is 
press the I key in conjunction withthe Commodore shift. It 
might be wise to type POKE 650,255 followed by RETURN 
before entering the program. This allows the keys to repeat. 
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Line 145 resets the VICs string time variable which counts in 
hours, minutes and seconds. Line 147 waits until the numeric 
time variable which counts in 60ths of a second is over 600 (i.e. 
10 seconds). Two arrays are dimensioned in lines 16@ and 170. 
We get to arrays in a later chapter. For now, all you need to 
know is that by saying DIM B(4) you tell the computer you want 
to createa list of objects, called B, in which the first item can be 
referred to as B(|), the second as B(2), and so on. These two 
arrays are used for storing the numbers picked by the 
computer, and for your guess. 


H is a numeric variable (we've mentioned numeric variables 
before) which is set equal to zero in line 180. In line 410, one is 
added to the value of H each time a black is found, so that if H 
equals four, the computer knows all the digits have been 
guessed and goes to the routine from line 63 to print up the 
congratulations. 


‘The lines from 199 to 210 work out the number which you will 
have to try and guess. Line 200 uses the RND function we've 
talked about to get four random numbers between zero and 
nine, and stores one each in the elements of the B array. Note 
that the first FOR/NEXT loop of our program appears here. 
The A in line 199 equals one the first time the loop is passed 
through, two the second time, and so on, so that the A in line 
208 changes as well. 


Our next FOR/NEXT loop, which uses C, starts in the next 
line. It counts from one to eight, to give you eight guesses. Line 
23@ accepts your guess, using the words ‘ENTER GUESS 
NUMBER 1’ asan input prompt. The numeric variable X is set 
‘equal to your guess, and line 249 checks to make sure you have 
not entered a five-digit number. If you have (if X is greater than 
9999) then the program goes back to line 230 to accept another 
guess. 


‘The next section of the program, right through to line $80, 
works out how well you've done, using a number of 
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FOR/NEXT loops (360 to 428, 449 to 528, 460 to 518 and 530 
to $68). Line 598 sends the program back to the line after the 
original FOR C=... to go through the loop again. If the C 
loop has been run through eight times, then the program does 
not go back to line 238, but ‘falls through’ line 599 to tell you 
that you have not guessed the code in time, and to tell you what 
it is. Line 619 prints out the code. 


If you do manage to guess it, so that H equals four in line 430, 
then the program jumps to line 638 to print out the 
congratulatory message. 


PACKING EM IN 

You can save quite a bit of space in the program (although it 
doesn’t always make it easier to work out what is going on 
within the program, or to pick up errors) by using 
‘multi-statement lines. With a multi-statement line, you put 
‘more than one statement to cach line number. Each statement 
on the same line must be separated by a colon (:). 


Here is a slightly condensed version of CODEBREAKER 
produced by putting more than one statement on a line in 
places. Compare the two listings, and see how a little bit of 
space can be saved with multi-statement lines. Do nof put a 
second statement in a line after the word IF (such as line 438). 
The reason for this will be outlined in the next chapter. 


3 POKE36879, 138 
ATCHRE (147); “REESE 


78 PRINT" WHEN YOU ARE TOL 


D TO"; 
88 PRINT"DO SC, EXTER A 4-DIGIT" 
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3Q PRINT‘HUMBER AND THEN PRESS"; 

100 PRINT"RETURN. DIGITS CAN BE"; 
11@ PRINT"REPERTED YOU HAVE 9") 
128 PRINT® GOES TO BREAK THE "; 
130 PRINT"DIFFICULT CODE 

149 PRINT: PRINT USE eet 
” 

145 T1$="@90000" 

147 IFTI<42OTHENIS7 

15@ PRINTCHRS(147> 

168 DIMB¢4),C¢4):LET H=d: 

198 FORR=1T04:LETBCR)=INTC1GORNDC1>>* 
NEXT A 

228 FORC=1TOe 

238 PRINT"SENTER GUESS NUMBER "iC: INP 


UTX 

248° IFX>S999THENGOTO2Z30 

258 PRINT 

269 IFINT(X/1003)=@THENPRINT"@" 5 
278 PRINTX;" "5 

288 P=INT(X/1080> 

290 Q=INT(CX-18088P)/102> 

382 R=INT(CX-18GR4P-16790)/10) 
319 S=(X-100G"P-100%0-120R) 
328 DC1D=P D292: DCSD=RD64=S 
362 FORE=1T04 

378 IFDCE)OBCE) THENGOTOGZ2 
38 PRINT" @EBLACK*; 

390 BCED=BCE)+168 

480 DCE>=DCE +20 

410 HsHet 

422 NEXTE 

430 IFH=4THENES3 

440 FORF=1T04 

458 D=D<F) 
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460 FORG=1 704 


€' 
BCG)+18 
52a cari 528 
510 NEXTS 
‘520 NEXTF 
530 FORG=1T04 
54@ IFBCG)<C1OTHENS6S 
550 BCG)=B(G)-18 
‘S568 NEXTS 
578 HeQ 
588 PRINT 
598 NEXTC 
620 PRINT" MMMYOU DIDNT GET IT. 
61@ PRINT"THE ANSWER IS"; 
615 H=BC1)#1800+B(2>#19+BC3)H1G+B64) 
sPRINTH 
628 STOP 
638 PRINTSMELL DONE, CODEBREAKER* 
635 PRINT*MYOU GOT THE ANSWER IN "jC; 
* GOES" 


4s 


CHAPTER SIX 
CHANGING IN 
MID-STREAM 


We pointed out at the beginning of the book that, in most 
situations, your computer follows through a program in line 
order, starting at the lowest line number and following through 
in order until the program reached the final line, 


This is not always true. The GO TO command (it can be typed 
ascither one or two words, the VIC will still recognise it) sends 
action through a program in which ever order you decide. 


Enter the following program, and before you run it, see if you 
can work out what the result of running it will be: 

18 GOTO 5a 
2 PRINT * 
3@ GOTO Be 
58 PRINT " 
6@ GOTO 26 
89 PRINT 
38 GOTOSa 


Is 58 


THIS IS 90" 


This rather pointless program sends the poor computer 
jumping all over the place, changing its position in the program 
every time it comes to a GOTO command. Here's what you 
should see on your screen: 
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THIS I$ 5@ 
THIS IS 2¢ 
THIS IS 88 
THIS IS 5¢ 
THIS IS 20 
THIS IS 38 
THIS IS 5@ 
THIS IS 28 
THIS IS 80 
THIS IS 50 
THIS IS 20 
THIS IS 88 
THIS IS 50 
THIS 15 20 


‘The program starts at line 18, and finding GOTO $0 there, 
moves on to line 50 to print out “THIS IS 50”. It then 
continues on to line 60, where it finds the command “GOTO 
20". Without question, it zips back to line 26 to print out 
“THIS IS 20” then goes to line 38 which directs it to line 80. 
At line 86, it finds the instruction to print out “ 
which it does. From there it gets to line 99, and finds 
50" which is just about where we began... and starts all over 
again. 


RESTRICTIVE PRACTICES 

Using GOTO in this way is called unconditional. The 
‘command is not qualified in any way, so the computer always 
‘obeys it. Another pair of words generally found together on the 
computer are IF and THEN. IF something is true, THEN do 
something else. IF you are hungry, THEN order a hamburger. 
IF you want some candy, THEN behave. IF something THEN 
do something. The next program, which ‘rolls a die’ (using the 
random number generator) and then prints up the result of that 
die roll as a word, uses a number of IF/THEN lines: 
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19 REM DICE ROLLS 
28 GOTO 160 

3@ PRINT “ONE” 

35 GOTO 1¢0 

40 PRINT “TWO” 

45 GOTO 100 

‘5@ PRINT “THREE” 
55 GOTO 100 

62 PRINT “FOUR 
65 GOTO 190 

7@ PRINT “FIVE" 
75 GOTO 108 

80 PRINT “SIX" 

108 LET ReINTCRND(1)#6+1> 
110 IF A=1 THEN 30 
120 IF A=2 THEN 40 
190 IF R=3 THEN 50 
140 IF A=4 THEN 60 
150 IF A=S THEN 70 
160 IF A=6 THEN 88 


After THEN if you want to jump to a line you can simply type 
the number of the line or type GOTO the number of the line. 
‘You will find later on that that other things can followa THEN 
statement. 


This is what you'll see when you run the program: 
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Six 


So we've look at non-conditional, and conditional GOTO's to 
send action all about the place within a program. 


ANOTHER WAY TO FLY 


‘There is another way to redirect the computer during the course 
of a program by the use of subroutines. A subroutine is part of 
a program which is run twice or more during a program, and is 
more efficiently kept ouside the main program, than within it. 


‘This example should make it clear. In this, the computer throws, 
a die over and over again. The first time it is thrown the 
‘computer is throwing it for you. The second time it is for itself. 
After each pair of dice has been thrown, it will announce who is 
the winner (highest number wins). The program uses a 
subroutine to roll adie. Enter and run the program, th 
to the book and I'll explain where the subroutine is within the 
program, and how it works: 


10 FOR I=1 TO S@Q:NEXT I:PRINT 


THEN LET A=D 
THEN LET B=D 


THEN PRINT"I WIN" 
ACB THEN PRINT"YOU WIN" 
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212 LET DSiNTCRNDC 1985241 
120 IF Cwl THEN PRINT*I ROLLED sD 


159 RETURN 
This is what you'll see when you run it: 


T ROLLED A? 
YOU ROLLED A 4 
WOU MIN 


i ROLLED A 4 
YOU ROLLED 2 4 


I RULED AS 


‘The program pauses fora short while on line 10, and thenenters 
the C FOR/NEXT loop. When it gets to line 38, which it does 
(0f course) once each time through the C loop, the program is 
sent to the subroutine starting at line 100. The ‘die is rolled’ in 
line 110, and the numeric variable Dis set equal to the result of 
the roll. The next two lines print out the result of the roll, using 
IF/THEN to determine whether the computer should print 
“TROLLED A ...."or "YOU ROLLED A ....."". Thereisa 
slight pause in line 140, and then the computer comes to the 
word RETURN. The word RETURN signals to the computer 
that it must return to the line after the one which sent it to the 
subroutine, In this program, the relevant line is 4@, because line 
34 sent the program to the subroutine. There, the IF/THENs 
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in lines 48 and S@ determine whether the value of the roll (D) 
should be assigned to the variable A or to the B. 


Line 6@ ends the FOR/NEXT loop, and then lines 78 and 86 
determine whether the computer has won (which it will have 
done if A is greater than B, acondition which is tested using the 
> sign in line 7) or whether the human has won (which will 
happen if A is less than B, a condition tested in line 80 by use of 
the ‘less than’ symbol, <). From here, the program goes back 
to line 1@ where it starts again. 


Study this example until you're pretty sure you know how 
subroutines work, 


LET'S ROLL AGAIN 

You may wonder if it is possible to change the earlier program, 
which changed the number rolled by the die into a word, using 
subroutines. The answer is ‘yes’, although the program with 
subroutines is not much shorter than the version using GOTO. 
Here's one way it could be done: 

10 REM DICE ROLLS 

28 GOTO 100 

38 PRINT "ONE" 

35 RETURN 

48 PRINT “Th 


"THREE 


FOUR" 


75 RETURN 
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Although THEN GOTO 30 can be abbreviated to THEN 30, 
after an IF statement, if you want to call a subroutine, the 
GOSUB command must be included after the THEN 
statement. 


COMPUTED DESTINATIONS 


Your computer is capable of accepting a number, an assigned 
variable (such as B when it knows what number B represents) or 
a combination of these as instructions on the line number it 
should go to. In the previous program, you'll see that the GO 
‘SUB destinations get larger in a regular way, and the number 
rolled by the die also increases in a regular way. We can use this, 
information to tidy up the section from lines 110 to 170 in the 
previous program, so that it looks like thi 


19 REM D: ROLLS 
20 GOTO 196 


RINT "“ONE’ 
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Ifyou run this, you'll see it performs in exactly the same way as 
the longer version. 


The program can be further condensed with the use of 
multiple-statement lines, producing this effect: 

1@ REM DICE ROLLS 

20 GOTO 109 

3@ PRINT "ONE" RETURN 

43 PRINT "THO" :RETURN 

52 PRINT “THREE”: RETURN 

60 PRINT "FOUR" RETURN 

78 PRINT "FIVE" RETURN 

82 PRINT "S 
108 LET ASINTCRND(13#6)+1 

118 GNP GOSUB 30, 48.59.60.78,20 

122 S073 188 

Notice the word ON. What this does is to look at the variable 
after it, and then choose a line number to jump to, or execute a 
subroutine from depending on this number. This number must 
be between @ and 255, otherwise the computer will stop with an 
error message. If the number is 1, the computer goes to the first 
2 the computer goes to the 
etc. If the number is 8 or higher than the number of 
lines given in the program line the computer continues onto the 
next line without jumping anywhere. This may sound a bit 
confusing so experiment for yourself by changing line 100 to set 
the variable A equal to various values such as: 


100 LET A=S 
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GETTING INTO THE 
MUSIC BUSINESS 


Your VIC has an excellent sound facility. This is a great way to 
add life to your program. It is amazing what a little sound can 
do to enhance a program. 


The only problem is, the VIC has no commands to control the 
sound so this must be done with a rather strangely named 
command POKE. This has two numbers after it separated by a 
comma. What it does is take the second number (which must be 
between @ and 255) and place it in a memory location whose 
number is the first number (which must be between @ and 
65535). This command has a function related to it called 
PEEK. What this does is return the value of what is stored in the 
memory location whose number is in the brackets after the 
PEEK. So POKE 7680,32 will put 32 in memory location 7680 
and LET A = PEEK(7680) will give A the value of whatever is 
in memory location 7680. This may seem a little complicated, 
but you should understand it if you persevere. 


The VIC"s sound is controlled by five of these memory 
locations, because they are special they have a special name 
REGISTERS. They are as follows: 


Memory location 36874 — this is the alto voice (low). 
Memory location 36875 — this is the tenor voice (medium). 
Memory location 36876 — this is the soprano voice (high). 
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Memory location 36877 — this is the noise channel. This is 
useful for gun shots, explosions etc. 

Memory location 36878 — thisis the volume control. It can be 
any setting from @ (no noise) 10 15 (loud). 


All of the first four registers can hold any number between 128 
and 255, The higher the number, the higher the pitch. They can 
hold numbers less than 128 but this will not produce any noise. 
Notice how you can have up to three musical notes and one 
noise playing at the same time. You can POKE these registers 
directly or from within a program. Remembering that you must 
POKE the volume register with a number bigger than 8 to hear 
anything (and have your television turned up). Perhaps the best 
method for creating sound effects from within a program isto 
calla subroutine like the one listed below. Before you call it, put 
the value you want register 1 to be in variable SI, the value you 
want register 2 to be in variable S2 etc. Put the start and end 
volumes in variables V1 and V2. Then call the routine using 
GOSUB 9000. If you don’t want any of the voices to play, put a 
@ in the corresponding variable. Also remember to put the 
duration in variable DU, making sure itis at least 1 and also not 
a decimal. You can use this routine in your own programs: 


18 Vi=15°V2=15: Sea $2=8:S3=9'S4=0 
20 DU=258:GOSUB 90% 
328 GOTO 30 


8999 REM SOUND ROUTINE 

9008 POKE 36876, PEEK(36878) AND 24 
9085 POKE 36874,31:POKE 36875,52:POKE 
36876 ,S3°POKE 36877,54 

9818 DV=(V2-V¥1>/DU 

9015 FOR I=2 TO DU 

9220 V1=Vi+DV:POKE 36678, PEEK(36878) 
AND 248 OR V1 

aoa T:POKE 36878, PEEK(36878) AN 
9840 POKE 36874,8:POKE 36875,8:POKE 3 
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BOS9 RETURN 


‘That was only one note playing. The following program plays 
three notes which all get quieter. 


iS: $3=225-S4 


SOUND ADVICE 

The control numbers held in the variables can of course be the 
result of calculations instead of just numbers. In the next 
program, you have to guess the number between | and S@ which 
the computer has thought of. The feedback on each guess — 
which will help you home in on the correct number in the 
shortest possible number of guesses — is in the form of notes 
from your VIC. Once you've played it for a few rounds, you'll 
earn to interpret the output from the computer. 


‘When you manage to guess the answer, you'll get this on the 
sereen: 
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YES, 1 WAS THINKING OF 
12 


YOU GOT IT INS 
GUESSES 


Here is the listing and note the POKE in line 30s to set another 
register, this one controls background and border colour and 
will be discussed later. Note also, the control code in the 
PRINT statement to get white writing: 


10 REM SOUND ADVICE 

20 LET R=INTCPNDC1)8S58+1> 

38 POKE 36879,42:PRINT "a" 

40 LET GUESS=1 . 

5 PRINT "“PORRABBBBITHIS IS GUESS #" 


ues \ 
60 PRINT "HMAT NUMBER AM I" INCUT! THY 
NKING OFA 

60 IF A&R THEN 130 

99 PRINT "SIQUNNO, "58; "IS NOT CORRECT" 
100 S190: S3=0:S4=0: Vi=15:¥2-0-DU=1a0¢ 
8~3UESS/’8) | 52=190+29ABSCR-AD 

118 GOSUB 9800 °LET GUESS=GUESS+1 

120 IF GUESSC4a THEN 52 

125 PRINT SLOW. I WRE" PRT 
NT*THINKING OF" 25070 200 

138 PRINT “ZMNMIVES, 1 WAS THINKING OF* 
PRINT 

14@ PRINT "MmvOU GOT IT IN“; GUESS:PR 


8999 REM SOUND ROUTINE 
9000 POKE 36875, PEEK(36878> AND 240 
9085S POKE 36974,51:FOKE 368675, 92: POKE 
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36876,53°POKE 36877,S4 

9018 DY=(¥2-¥1)/DU 

9015 FOR I=2 TO DU 

9820 Yi=V1+DY POKE 36878, PEEK(36878) 
AND 248 OR V1 

9038 NEXT I°POKE 36878,PEEK(36878> AN 
D248 

9040 POKE 36874,0:POKE 36875,@'POKE 3 
6876,0:POKE 36877,8 

9058 RETURN 


The first line is, of course, just a REM statement to tell you the 
name of the program. The next line generates a random 
‘number between one and fifty, and sets the numeric variable R 
equal to this number. In line 38, the computer turns the 
background to red, the colour in which the computer prints to 
white, and the area surrounding the centre of the screen, the 
BORDER, to red, the same colour as the background. 


Line 40 sets a numeric variable called GUESS (the VIC only 
recognises variables by the first two characters of their name — 
so that GUESS and GUN are considered to be the same variable 
— but you can use longer ones to aid readability) to one, and 
line $0 prints up the number of your guess. Line 6@ accepts your 
guess, as variable A. If A (the number you've guessed) is the 
same as R (the number the computer thought of back in line 
26), asthe computer checks in line 8@, then the computer knows 
you have guessed its number. 


If you are not right, then line 98 tells you so, and the following 
line (108) gives you your audio feedback, with both the length 
of the note, and its pitch, being related to the difference 
between your number and the computer's number. The 
variable GUESS is incremented by one (that is, one is added to 
the value of the variable GUESS) before the computer returns 
to line $8 to accept your next guess. 
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If you have guessed the number correctly (detected in line 84) 
the program moves to line 138. The screen is cleared and the 
computer tells you the number it is thinking of, and then (in line 
148) tells you how many guesses you took. 


CHAPTER EIGHT 
MAKING 
COMPARISONS 


We all know the equals sign (=) and we've seen it in use in 
several programs so far. We've also seen the greater than (>) 
and less than (<) signs. At this point of your learning, we 
thought it would be useful to briefly recap on what each of these 
signs are, and what they mean 


equals 

greater thai 

less than 

greater than or equal to 
= _ less than or equal to 
<> not equal to 


AVAV 


You'll see these in use in many programs in this book, such as 
this next one, which allows you to challenge the computer to a 
game of BRICKBAT, written by Graham Charlton 


This is the listing for BRICKBAT. 


1 POKE6S@, 255: POKE36878, 15° DEF FNACA) 
=PEEK(7680+'7#22+X) :COS=" Sami 
Be Se COU UOC OU OULU 
7 \Se PERDRRDSOSRDRDODEDD! 
10 POKE36879. 125:PRINT" Ra 


15 PRINT" 
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29 PRINT" MORRROSRRRRSSRERERED! © — 
3@ PRINT" 


40 FOR AS1TOS:PRINT" “;MIDSCCOS,RND(1 


78 FORA=1TO12 
80 PRINT" IPDDRDEPEDEODSDDERED | 


PRINT*ALIVES" Ts °H", 
sci" "5 
3° MBINTCRNDC 187946 


120 IFFNAC1)=207 THENSC=SC+1:PRINT" Md 
" ; TABC16) | SC:C=-C:FRa255:LE=2:GOSUBIO 
2a 


138 IFYD>20THEN230 
14@ PRINTLEFTS(¥S, 41) /LEFTS(X$, x); 
145 PRINT" Me" :LEFTS(Y$, 22) ;LEFTS(XS.M 


159 PRINT ‘mai 
160 GETAS: M=M-CR! 
ANDND@> 

178 IFY+CC2THENC®-C :FR=191 :LE=1 -GOSUB 


ANDNCI7)+(RS="2" 


1088 

180. IFY¥=2QTHENIFX>=MTHENIFXC=M+4THENC 
C:LE=1 :FR=195:GOSUB1900 

190 IFX+D<1ORK+D>2THEND=-D : FR=195°LE 
=1:G0SUB1000 

200 PRINTLEFTSCY'S, Y+1);LEFTSCXS.X) 

@ PRINT! "5: Y=Y40'MEKED 


“1:0 FORR#1TO68T :FR=195¢R°L 
E22 GOSYB1999: FR=255-R : GOSUB1920 NEXT R 
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249 PRINT" SMLIVES" ’ 
"iLEFTSCYS,22) 


245 PRINT" SCORE" ;SC; 
FLEFTSCRE MD: 

25 PRINT*S "3 
260 IFTOTHENLI@ 
270 FReRND(1)#127+228°LE=2: GOS B1820: 
GoTo278 

1008 POKE36876.FR:FORT=1TOLE :NEXTI:PO 
KE36876,0: RETURN 


In BRICKBAT, you use the M and Z keys to move the little 
black slide at the bottom of the screen back and forth, 
bouncing the ball off it (if you can). As the bail bounces up to 
the coloured squares, it will strike them, making a sound, 
adding to your score and causing the ball to disappear. You 
have ten balls per round. It is fascinating (o see what happens if 
the ball gets momentarily ‘trapped’ inside the bricks, bouncing 
off them wildly, before it finds a way out and down. You'll see 
how effective this can be when you run the program. 


Notice that our ‘comparison symbols’ (less than, and the rest) 
are used frequently in this program. They perform a number of 
tests in conjunction with IF/THEN statements, bouncing the 
ball off the slide at the bottom of the screen, the walls or the 
bricks, deciding when the ball has missed the slide, and 
continuing the game if (in line 268) you still have a ‘life’ (that is, 
ball) left. The program ends in line 278 with an endless series of 
randomly chosen beeps. You'll need to press the RUN/STOP. 
key (sometimes called the BREAK key) to get out of the 
program, 


The words AND and OR are also used in comparison lines, 
chaining two ot more tests together, as in lines 168 and 198. 
They work as follows: 
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AND The computer does what follows the THEN 
if both of the conditions chained by the AND 
are true 

OR —_ The computer carries out the instruction 
following the THEN if either of the 
conditions are true. 


Let's see how this works in practice. In line 160, the computer 
checks to see IF you are pressing the M key AND if M is less 
than 17, and if both these conditions are true, moves the slide 
one square to the right. Line 198 bounces the ball off the side 
walls. It checks to see if the ball is about to hit the left wall (IF 
X + D< 1) OR is about to hit the right wall (IF X + D> 26) and 
if either of these conditions is found to be true, the computer 
“bounces’ the ball, by changing the value of D, the variable 
which determines the change in the position of the ball across 
the screen from move to move. 


Notice the extensive use of control strings to position printing 
on the screen, Commands such as LEFTS will be explained 
later on, suffice to say that they are used for the extraction of 
various parts of strings (known as string slicing). 


Note also line 168. If a condition is true in VIC BASIC, a —1 
will be returned, otherwise a @. Therefore if AS = "*M""ANDM 
<17 is true then ~1 is subtracted from M otherwise a is 
subtracted. Note that subtracting ~ | is the same as adding +1 
(Le. moving | to the right). If the second condition in the line is 
true, —1 is added to M (i.e. +1 is subtracted, moving ! to the 
left), 


CHAPTER NINE 
TWO GAMES AND A 
SPEED TEST 


It’s time now to take a break from the serious business of 
learning to program the computer. As you can see in this 
chapter, we have a couple of major programs, which use many 
commands that have not yet been explained. We suggest you 
enter the programs just as they are, play them for your own 
enjoyment, then come back to the explanations which follow 
the listings after you have mastered the rest of the book. We do 
not think itis fair to keep you waiting for major programs until 
you’ ve covered everything on the computer, so we have decided 
to supply you with these programsat this point, and hope you'll 
enter them ‘on trust’, returning to this chapter for the 
explanations when you feel you are ready. Of course, you do 
not have to enter the programs right now. If you'd prefer to 
continue with the learning, then move straight along to chapter 
ten. 


PLAYING ALONE 


Our first listing allows you to use your computer as a Solitaire 
board. It is believed that Solitaire was invented by an 
imprisoned nobleman in France in the late 16th century, and 
was brought into England in the closing decade of the 18th 
century 


The aim of the game is simple to explain, but not so easy to 
achieve. You start on a board which has 33 positions marked. 
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‘There are ‘pegs’ in 32 of the positions on a real board, and the 
middle position is empty. 


The little man-like figures represents the pegs, and the black 
square in the middle of the screen is the empty spot. To play, 
you simply jump over any of your pieces vertically or 
horizontally, so that you end upin an empty position. The piece 
which you have jumped over is removed from the board. The 
aim of the game is toend up with just one little man inthe centre 
position. 


‘As you can see, you are told the number of the move, and how 
many pieces are left on the board. You move by entering the 
co-ordinates of the piece you want to move, using the number 
down the side first, followed by the number across the top. 
These are entered as a single, double-digit number. If you 
wanted to move the piece which was two positions below the 
central hole at the start of the game, jumping into the central 
position, you'd enter 64, then press RETURN, followed by 44, 
and RETURN again. The board is reprinted, colourfully and 
musically, and you are then offered another move. 


This is the listing of the Solitaire program: 


S$ POKESS, 255: POKES6, 27 

18 REM SOLITAIRE 

15 COS="S2MA." POKEI6869. 255: POKERES 
78,15 

28 GOSUBZ6R 

28 GOSUB1EO 

49 REM ACCEPT MOVE 

45 PRINT "SRMMNDUTATeleTNeMTACeDMTATATI AH TCH PE 
3 DO YOU WANT” 

SQ INPUT" STO MOVE"; A 

60 POKE36876, 175+RND< 1 #62: IFACAD<>64 
THEN 5@ 

65 POKE26876,0 

"8 INPUT" STO WHERE": 8 
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88 POKES6976, 175+RND¢ 160: IFACBDCOET 


98 ACCA+B)/2)8E ACADSE ACB) =64 
180 MO=M0+1 

118 CO=@ 

128 FORF2=11T075 

130 IFACF =¢ 
149 NEXTF 
159 GOSUB180 

168 IFCOUNT>1 ORAC44)<>64THENI79 

165 PRINT"WOU DID IT IN“; MO:PRINT'S 
MOVES" : POKE36969. 240: STOP 

170 PRINT SMOORTEPOMIOMMSTHERE ARE" 
sco 

175 PRINT"SPEGS ON THE BOARD" GOTO 42 
188 REM PRINT OUT 

19@ PRINT TOONODRRSRSREIA 234567" 
195 PRINT" OND) 7A BOOB BI" 
208 FORD=11T075 

210 IFD-1QMCINT(D/18>)>=8 THEND=D+2:PR 
INT"@S" ;-INT(D/10)+1 :PRINTTABC6) } GOT 


0230 

215 IFACD)=64THENPRINT"@ ; :POKE36876. 
208 

216 IFACD)=ETHENPOKE36976, 15Q+RND(1)# 
20 


218 IFACD)<)64THENPRINT" #5 

228 PRINTMIDS(COS, 1-CRNDC1)#S+1 #CACD 
964), 1); CHRECACD)); 

238 NEXTD 


242 PRINT’ ODOM a" MOVES SO FR 
R* 

258 POKE26376,0:RETURN 

268 POKE36379,26: PRINT" De"; -DIMACB7) 
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278 Es166 
280 FORD=117075: IFD-108¢INT(D/10)>=8T 
HEND=D+3, 


290 READACD) 

300 NEXTD 

319 MOs@ 

328 FORZ=@T07 
330 READX 

348 POQKE7168+2.% 


368 DATAS2,32,64,64,.64,32,32 
370 DATAS2. 32,64, 64,64,32,3. 
388 DATA64, 64,64,64,64,64,64 
390 DATA64 64,64, 166,64,64.64 
400 DATAG4, 64,64,64,64,64.64 
410 DATA32.32.64,64.64.32.32 
420 DATA32, 32,64, 64,64 

420 DATA2B, 93,73,62.28,54,99,8 


The program works as follows. Line 20 sends action to the 
subroutine from line 260 which sets up the requirements for the 
start of the game, The BORDER is set to red, the PAPER to 
white, and the print colour is set to black. The screen is cleared, 
and the A array is dimensioned to hold the board. One variable 
is initialised: E for the black, central square. The loop is lines 
280 to 308 reads the DATA from lines 360 to 426 to get the 
positions for the start of the game. 


‘Character 64 is the first user-defined graphic ( ind this is 
set up with the loop from lines 328 to 345, using the DATA 
from line 430. 


TESTING YOUR SPEED 


‘Our next program, REACTION TESTER, is much shorter 
than Solitaire, but just as much fun to play. You enter the 
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program, press RUN, and the message STAND BY appears. 
After an agonizing wait, STAND BY will vanish, to be replaced 
with a notice: “OK, PRESS THE ‘Z’ KEY". As fast as you 
can, you leap for the Z key, and press it, knowing that the 
‘computer is counting all the time. 


The computer then tells you how quickly you reacted, and 
compares this with your previous best time. “BEST SO FAR 
1S. ..”" appears on the screen, and the computer then waits for 
you to take your hands off the keyboard, to prevent cheating 
{as if you'd try to cheat on your computer), before the whole 
thing begins again. As well as printing out your best score, the 
computer also prints out a long red bar, the length of which is 
related to your best score, to give you an easy-to-read indicator 
‘of how well you're doing. The game continues until you 
‘manage to get your reaction time down to below five, which is 
not an easy (ask. 


Here is the listing of REACTION TEST: 


‘5 REM REACTION TEST 
18 HI=1200:POKE36878, 15 
15 PRINT*"; ‘ASRND(-TI> BS=" 


20 PRINT" SOQONBBISTAND BY 


30 FORA=1T020+RND¢ 1) #580 

35 GETAS: IFASC>"" THENSS 

48 NEXTA 

45 POKE36876,0 

‘SQ PRINT" OMNNMNBBINK, PRESS THE “2° KEY 


68 CO=a 

78 COsCO+t 

92 GETAS 

188 IFASC>"Z2"THEN7@ 

110 PRINT" MMYOUR SCORE WAS ";CO; "Mt" 
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128 IFCOCHITHENHI =CO : POKE36876, 138-<C 
O#<COCEO) #2 

138 PRINT"M"; BS; "Sd BEST SO FAR IS";4 
1)" 88" 5° XSHI > IFXDS4THENK= 44 

132 PRINTLEFTS(BS,%/2) 

135 IFHICS THEN16@ 

148 GETAS: IFAS<>""THENI4@ 

15@ GOTO 28 

168 POKE36879,56:PRINT":3a"; 

178 PRINT" MOM = YOURE THE CHAMP! !" 
175 POKE36876,0 


Line 10 sets the variable HI to 1009, after the random number 
generator is seeded in line 15, a string (BS) is set up. Following 
this with a command to PRINT BS would get the computer to 
print up a line of 22 spaces. The only way you could see would 
beto PRINT them with REVERSE, so that a solid bar would be 
printed. In line 138, the computer uses BS to blank out 
everything on the top row, before the words BEST SO FAR 
IS... are printed on the following line. Then, the end of that 
tine prints a solid red bar (using LEFTS(BS,X/2)as you can see) 
which prints a bar related to your best score, so long as this best 
score is lower than 45. 


The variable CO is set to zero in line 6 and incremented by one 
every time line 70 is revisited, because you have not yet 
‘managed to get to the Z key. Line 100 checks to see if you have 
touched the Z and if not, sends the program back to 78 where 
CO is incremented. 


‘Once you have managed to get to Z, the program ‘falls 
through’ to line 118 where you are told your score. This is 
compared with the best score (variable name Hil) in the 
following line, and HI is adjusted to CO if CO is the lower of 
thetwo. A beep sounds, related to your score on that particular 
round. The lower the tone, the better you did. 
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The next line (135) checks to see if you have managed to get a 
score lower than five, and if you have, directs the computer to 
line 160 where the YOU'RE THE CHAMP!!! message is 
displayed. If not, line 148 waits until you have taken your 
fingers off the keyboard and line 150 directs the program to line 
20, where the next round is played out, You'll have few 
problems getting a score of 15 or so, but to get it below five is 
extremely difficult. 


A CORNER ON GO 


Our next program is a fascinating one. It allows you to play 
against the computer in the Japanese board game Hasami 
Shogi. Whereas the board games with which you might be 
familiar — such as Chess and Checkers — are played on a eight 
bycight board, Hasami Shogi is played on a nine by nine board. 
‘The corner of a Go board (19 by 19) is often used. 


Each player starts the game with 18 stones. Your stones are 
rounded, and the computer's stones are square, You start at the 
bottom of the board playing up the screen, and the computer 
startsat the top. The aim of the game is to capture seven of your 
‘opponent’s pieces. Actually, in the real-life Hasami Shogi, the 
aim of the game is to capture all of your opponent's pieces, but 
— as you'll see when you play this game — that would make 
each round last a long, long time. This may be satisfactory 
when you're playing against another human being, and can 
chat as the game proceeds, but you'll find it takes far too long 
to complete a game when playing against the machine. 
‘Therefore, we've changed the aim of the game so that each of 
you is trying to capture seven of your opponent's pieces. 


You take it in turn to move, and you can move only one piece 
per turn, You move vertically or horizontally, but not 
diagonally. With each move, you have three choices: 


— you can move into a vacant square which is above, 
below or beside your piece 
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— you can jump over one of your own pieces into a 
vacant square 

— you can jump over an opponent piece into an empty 
square 


Unlike Checkers, a piece which has been jumped over is not 
captured, and is not removed from the board. The only way 
you can capture a piece is by moving so that your piece ‘raps a 
‘computer piece between two of yours. It captures your piece in 
a similar way. You do not lose your piece simply by moving 
in between two computer pieces. Therefore, you aim to get 
your piece next to a computer piece, with an empty square 
beyond that, so you can move into the empty square on a 
subsequent move. 


Observing a game in action is perhaps the best way to 
understand it. 


Next is the listing for Hasami Shogi, and after the listing we'll 
explain how the program works, 


10 REM HASAMI SHOGI 

20 REM MAKE SURE YOUR COMPUTER IS IN 
UPPER CASE MODE 

30 GOSUB790 

40 GOSUBSA 

5@ GOSUB460 

69 GOSUBE3O 

7@ GOSUB469 

88 GOTOSe 

90 REM CAPTURE 

108 A=99 

118 IFACA)OCTHENIIO 

120 IFACA~18)=ETHENIFACA-S)=HTHENIFAC 
A~8)=CTHENB=A-18:GOT0359 

130 IFACA-18)=ETHENIFACA~1 1 sHTHENIFA: 
(P-12)=CTHENB=A-19:GOTO3S2 
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149 IFACA-18)=ETHENIFACA+1 1) =HTHENIFA 
(A+12)=CTHENB=A~18: GOTO3S@ 

150 B=1 

160 IFA+280(B) C1 10RA+20(B)>S9THENI89 
178 IFACA+CCB) >=EANDACA+2#C <B> >=HANDA 
(A+3HCCB>2=C THEN ACA+2C(B) =E:CS=CS 
+1 °GOTO340 

180 IFBC4THENB=B+! GOTO160 

198 IFA>11THENA=A~1 :GOTOL1A 

200 REM NON~CAPTURE 

218 CO=8 

228 CO=CO+t 

238 ARNDCL) #89411 

248 IFACAD=CTHEN270 

250 IFCO<2@@THENZ20 

268 PRINT" MHASAMI SHOGI MASTER" :PRINT 
"1 GIVE YOU THE VICTORY!" -END 
270 Bal 

280 IFR+2#C(B)<11 THENS@O 

298 IFCACR+C(B>>=CORACA+C(B) )=HANDAC 
A+2#C(B) )=ETHENB=A+28C (8B) GOTOSSA 
308 IFACA+C(B>SETHENSSO 

318 IFBC4THENB=B+1 :GOT0280 

320 GOTO25a 

330 REM COMPUTER MOVES 

340 B=A+C(BD 

358 Bi=B-10#< INT(B/19)) 

368 ACBD=C:ACAD=E 

378 IFB1>7THEN390 

380 IFACB+1)=HANDACB+2)=CTHENAC B+1)=E 
CS=CS+1 

390 IFBI<3THEN419 

400 IFACB-1)=HANDACB~2)=CTHENACB-1)=E 
CS=CS+1 

410 IFADS9THEN438 
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420 IFACB+10)=HANDACB+20)=CTHENACE+10 
DeE'CSeCS+1 

430 IFAC29THENRETURN 

440 IFACB~1@)=HANDACB~28)=CTHENACB-18 
dsE:CS=CS+1 

458 RETURN 

462 REM BOARD PRINTOUT 

478 PRINTCHRS(147); 

489 PRINTTAB(3); "M1 2345678 9" 
499 FORM=98TOL@STEP-18 

SOQ PRINT" "CHRECM/10+64);" 3” 

S19 FORN=1TO9 

S2@ PRINTCHRECACM4ND D5" "5 

530 NEXT 

54 PRINT" M"CHRS(M/104+64) 

95@ NEXT 

560 PRINTTAB(3);"1234567 89" 
570 PRINT" HCOMPUTER : "CS"HUMAN : "HS. 
598 1FCS>60RHS>6THENG10 


RETURN 
61 IFCSDHSTHENPRINT :PRINT"@I WIN!" 


m 


620 PRINT:PRINT"@YOU WIN!" END 

638 REM PLAYER MOVE 

648 INPUT"AFROM (LETTER.NO)"; AS 

650 IFAS="S"THENEND 

668 IFLENCA$)C2THENG42 

67@ PRINT*FROM "AS" TO "5: INPUTBS 
688 IFLENC BS) O2THENG42 

692 R=1B#CASC(AS)-64)+VALCRIGHTS(RS, 


70 Be1Q#(ASC(RS)~64)+VAL(RIGHTS(BS, 


710 Ys¥ALCRIGHTSCBS, 19) 
728 ACRI=H:ACAD=E, 


B 
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738 IFACB+1)=CANDACB+2) =HANDY<=7THENA 
(B+1)=E :HS=HS+1 

748 IFACB~1)=CANDACB~2)=HANDY>=3THENA 
(B-1)=E*HS=HS+1 

75@ IFBD79THEN77@ 

768 IFACB+1@)=CANDACB+20)=HTHENACB+19 
3E:HS=HS+1 

778 IFBD=31 THENIFA‘B-10)=CANDACB-20)= 
HTHENACB-10)=E :HS=HS+1 

788 RETURN 

798 REM INITIALISE 

200 REM SEED RANDOM NUMBER GENERATOR 
B1@ PRINTCHRS$(147)"PRESS A KEY" 

820 GETRS: IFAS<>""THEN620 

838 GETAS: IFAS=""THENS3O 

850 N=RND(-TI) 

878 PRINTCHRS<147> 

880 DIMAC129>,0¢4> 

899 H=113:C=166:E=42 

908 FORZ=11T029 

910 IFZ=20THENZ=21 

928 ACZ)=H 

930 NEXTZ 

940 FORZ=31T079 

950 IF 1Q#INT(2/19)=ZTHENZ=Z+1 

968 ACZ>=E 

978 NEXT: 


982 FORZ=81T099 
998 IFZ=9@THENZ=91 
1002 AC2)=C 

1018 NEXTZ 

1€28 HS=2 
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1069 NEXT 

1079 DATA-18,~1,1,18 

1988 GOSUB468 

1299 RETURN 

The program listing may seem very long, but it is somewhat 
simpler to understand than it may appear at first sight. This is 
because it has been written in ‘modules’, each of which is called 
by a GOSUB near the start of the program. Programming in 
this way is a good idea if you are developing a program which 
could be fairly long and involved, asiit enables you to keep track 
‘of what each section is doing. As well, itis easy to track down 
‘bugs (the common computer word for a program error, and 
named after a malfunction in an early IBM computer which 
was found to have been caused by a moth which was caught 
inside the cabinet) if the program is in modules, as the module 
which contains the bug should be relatively easy to isolate. 


The idea of programming in ‘modules’ in this way is perhaps 
easier to understand if we show how it has worked in this 
program. 


line 30-GOSUB 798: This sends the program to the 
subroutine which sets up all the starting variables. This kind of 
a subroutine is often called the initialisation subroutine. On 
returning from the subroutine, the computer gets the 
instruction to GOSUB 98. 


Line 40-GOSUB 98: This is the subroutine which determines 
‘he computers move. The computer moves first in this game. 
Firstly, in the lines from 90 to 184, it goes through the board, 
square by square, looking for a potential capture. It does not 
take very long to do this. 


1¥ a capture has not been found, the computer then moves into 
utsroutine for looking for a non-capture move. Here, it sets the 
sariable CO, which counts the number of moves it has selected, 

» seroto start with, and then adds one to it in line 220. Line 238 
chooses a square on the board at random — the squares are held 
mn array, the A array, and are numbered from 11 to89— and 
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then checks to see if it has one of its own pieces on that square. 
The variable C indicates one of its own pieces. If it finds one 
there, it moves to line 270 to make the move, 


Ifnot, the program checks that it has not yet selected 260 moves 
(that is, it checks that the variable CO is less than 208) and if it 
finds that it is, sends the action back to line 228, where one is 
added to CO, and a new square is selected in line 230. If it tries 
206 numbers at random, and does not find one of its own pieces 
—amost unlikely situation — it will concede the game with line 


if it finds one of your pieces (in line 240) the program 
goes to the routine from line 270, where it tests the square 
located for a move, using elements of the C array, which 
ial moves from each square. Jumps are given 
Priority over single moves. 


Ifa move has been found, the program then goes to line 330. If 
not, line 326 sends the program back to line 220, where another 
piece is located to consider for moves. 


The actual move, and the result of that move, is made in the 
lines from 330. The computer makes its move in line 360. Lines 
370 through to 440 process the move, taking any captured 
pieces off the board. Line 450 returns the program to line $0. 


Line 58-GOSUB 460: The routine from line 468 prints out the 
board. This subroutine is, of course, visited after each move, 
whether by the computer or the player, to update the board. 
Line 599 checks to see if either player has managed to capture 
more than six of the opponent’s pieces, and if s0, goes to line 
610 to print out the name of the winner. If not, the board 
printout subroutine is exited via line 600, and the program 
returns to line 68. 


Line 60-GOSUB 630: We hope by now you are working out 
how the modular idea is applied. A series of subroutines, each 
of which carries out a specific task, is called over and over again 
as the program progresses from a small number of lines, which 
the program loops through, time and again. Even if it’s not 
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1% clear now, it should be by the time we finish the 
explanation. Anyway, this subroutine from line 638 — as the 
REM statement explains — allows the player to enter his or her 
imove (terminating the program if the player enters **S"” for 
stop) in lines 640 and 678, translates the letter and numbers of 
the players ‘‘to” and "from" squares into numbers which the 
computer can apply tothe A array, and then makes the relevant 
changes in the loop through to line 788, where the RETURN 
sends the program back to line 76. 

| ine 70-GOSUB 460: This line sends the program back to the 
subroutine which prints out the board, to reflect the changes 
introduced by the players move. 

ine 86-GOTO 48: This sends the program back to line 40, 
where a subroutine call is directed to 99, to get the computer to 
make a move. 


We hope by now you can understand the structure. This is what 
is happenin, 


GOSUB79% — — initialised (this subroutine is not revis- 
ited) 

GOSUB 9 — — computer makes a move 

GOSUB 460 — board is printed out 

GOSUB 636 — human makes a move 

GOSUB 468 — board is printed out again 

GOTO48 ~— — return to the line to allow the com- 


puter to make a move 


This sequence is cycled over and over again while the program 
iy running until one player or the other manages to capture 
seven or more of the opponents pieces. You can sec that if we 
had, for example, a problem with the way the board was being 
printed on the screen, it could be overcome relatively easily, 
because we would know the error lay between lines 4685 and 630. 
Similarly, if we wished to alter the style of play exhibited by the 
computer, all we'd have to do is look at the sequence which 
began at line 98. Programming in this ‘modular’ way is very 
useful. 
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The only routine we have not looked at is that starting at line 
790, the initialisation routine. Line 880 initialises two arrays: A 
to hold the board and C to hold the potential moves in four 
directions from each square. Variables H (for the human 
piece), C (for the computer piece) and E (for an empty square) 
are assigned at the end of this line. The three loops (900 to 938, 
940 to 970 an 980 to 1810) ‘fill up’ the board with the starting 
positions. In lines 1028 and 1030 the variables which hold the 
score, HS for human scores, CS for computer score, are set to 
zero. Line 1080 calls the board subroutine so you can look at 
the board as the computer considers a move, and then 1098 
sends the program back to line 40, where the whole ‘game cycle” 
begins. 


CHAPTER TEN 
STRINGING ALONG 


You'll recall that several times in this book so far we have 
referred to numeric variables (letters like A or B, words like 
COUNT and GUESS, and combinations such as R2D2 or 
C3PO) and to string variables (such as AS, BIS, FCS etc). In 
this chapter we'll be looking at strings, and at things you can do 
with them. 


THE CHARACTER SET 


Every letter, number or symbol the computer prints has a code, 

This is known as the ASCII code and is pretty standard for most 
micro computers (your VIC also has a lot of extra, none 
standard codes as well as some of its symbols having none 
standard codes). Telling the computer to print the character of 
that code produces the character, and is done using the 
function CHRS (N) where N is the code of the character. You 
may remember seeing this in chapter one. It is casy to 
understand this. The code of the letter *‘A"" has nothing to do 
with the value assigned to A when it is a numeric variable, but 
refers to "“A"” when we actually want the computer to print the 
letter “A” out. We'll put the “A” in quote marks when 
referring to it as a letter. Try it now. Enter this into your 
computer and see what you get: 


PRINT ASCC"A") 


You should get the answer of 65. Now 65 is the ASCII code of 
the letter “*A"". We can turn it back to an “*A"" by asking the 
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computer to print the character which responds to ASCII code 
65, We do this with the function CHRS. 


PRINT CHRS(6S) 


You can get the computer to print out every code and character 
with the next short program (except the control codes which 
would upset the display), which has — as you can see — a very 
long print out. When SCROLL? appears, just hit the RETURN 
key to continue. 


18 REM SHOWING ASC AND CHRE 
20 FOR A=32 TO 191 STEP 20 
38 FOR B=A TO Ari9 

23 THEN B=132:G0T% 
32 THEN 2: GOTO 45 

TASC" 5B; TABC1@); “CHARACTER "> CHRS(B) 


2 THEN LET A140 
SeROUL: as 


Notice the use of two loops so that only 20 codes are printed on 
the screen at once, thus preventing the information scrolling 
away before you have a chance to read it. This is what you'll get, 
‘when you run the program: 


First in upper case 


ASC 32 CHARACTER 

ASC 33 CHARACTER ! 
AST 34 CHARACTER “ 
ASC 35 CHARACTER # 
ASC 36 CHARACTER $ 
ASC 37 CHARACTER % 
ASC 38 CHARACTER & 


ASC 39 CHARACTER “ 
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CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER » 
CHARACTER 
CHARACTER . 
CHARACTER 


rer 


CHSRACTER 
CHARACTER 
CHARACTER 


OS, 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


wOInan 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


OIMsoOmMDBIW HAs 
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CHARACTER £ 
CHARACTER J 
CHARACTER ft 
CRARACTER + 
CHARACTER — 
CHARACTER @ 
CHARACTER | 
CHARACTER — 
CHARACTER — 
CHARRCTER — 
CHARACTER — 
CHARACTER | 
SHE ACTER 1 
CHARACTER 5 


Neca 


83 


ASC 


131 


SCROLL 


Now 
asc 
asc 
asc 
asc 
asc 
asc 
asc 
asc 
asc 
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CHARACTER | 
CHARACTE® + 
CHARACTER 1» 
CHARACTER + 
CHARACTER + 
CHARACTER = 
CHARACTER + 
CHARACTER + 
CHARACTER + 
CHARACTER 4 


CHAMSCTER | 


CHARACTER * 
CHARACTER " 


in lover case 


character 
character 
character 
character 
character 
character 
character 
character 
character 


A \eNee = 
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character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 


character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 

character 


character 
character 


Wm aX+ 


OorHAe 


Or9ANn Te wIVHA 


es 
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character j 
character k 
character 1 
character © 
character 7 
character o 
character P 
character 9 
character r 
character $s 
character ¢ 
character v 
character y 
character 
character x 
character 3 
character z 
character £ 


character £ 
character 3 
character 
character + 
character ~ 
character F 
character B 
character C 
character D 
character £ 
character F 
character G 
character H 
character I 
character J 
character K 
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character 
character 
character 
character 


character 
character 
character 
characte> 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 
character 


character § 


character 
character 
character 
character 
character 
cheracter 
character 
character 
character 
character 
character 
character 
character 


ezar 


“NM-M EMC EC C4MVO0 
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character + 


character | 
character 1 


charact 


character 
character 


wees 


A more convenient version of this program — which takes up 
less time and space — is as follows: 


19 REN SHOWIN ASC AND CHRE 

28 FOR A=32 TO 191 STEP 40 

30 FOR BA TO A439 STEP 2 

35 IF B=i28 THEN B=152:GOTO 45 
37 IF B=192 THEN B=220:GOTO 45 
4@ PRINT TABC1); Bj TABC6) }CHRSCB); 
42 PRINT TABC11);B+1; TABC16) ;CHRSCB+1) 
45 NEXTB 

5@ IF Asi12 THEN LET A=120 

6 INPUT"SCROLL" AS 

78 NEXT A 
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The TAB function in line 38 moves printing along to the 
column in the brackets, @ being the left most column. If the 
column has already been passed, the TAB is ignored. 


And this is the result of running it: 


32 3! 
“4 3 
ed 37% 
3 8 i a 
4a 6 41) 
42% 43 + 
“4, . ees 
4. ae 
4860 49 1 
5e.2 S163 
s2 4 33.05 
S46 3 7 
56 8 79 
se: 59 5 
6a < 61 = 
62 > 6&3 ? 
64 a 65 A 
66 B 67 Cc 
68 D oo £ 
70 F 166 
‘SCROLL 
72H 73021 
74d 75 K 
7% 7H 
78 N 790 
eo P 81 28 
62 Rk 83 $s 
oT es U 
86 OY a7 WW 
ee x ey 
2 2 2160 


el ter4s.4e ewe 


GETTING STARTED ON YOUR VIC 20 


CHAPTER TEN oT 


198° 191 % 
‘SCROLL 
TESTING YOUR CHARACTER 


‘Our next program is a reaction tester like the one you 
experienced earlier, However, you are not just being tested on 
speed. In this program, you haveto try and find the right key on 
the keyboard as quickly as possible. 


Make sure that SHIFT LOCK is nor engaged when you run this 
program. A letter will appear in the middle of the screen. As 
quickly as you can, find that letter on the keyboard and pressit. 
You will be told how long it took you, and this time compared 
with your best time. Notice how the letter which is printed on 
the screen uses CHRS in line 40 (find the character of the 
number, chosen at random in line 20, represented by the 
variable A), and AS (which is the key you pressed, using GET 
which is explained a little later in the book) is compared with 
CHRS a in line 60 to see if you were correct. 


5 POKE 36878, 15: PRINT" 

1@ REM KEYBOARD INSTRUCTOR 

i LET BEST=0 

20 LET A=6S+INTCRNDC 1826) 

LET Bea 

PRINT SAAR SRSBBI | CHR ECA) 
GET AS 

IF ASSCHRECADTHEN 123 

70 LET B=B+1 

20 PRINT" SMCS DEBTS | 5 

32 IF BC208 THEN 58 

109 PRINT“ MMSORRY, TIME IS UP" 
11@ GOTO 148 

12@ POKE36876, 128+INTCRND(1)#128) 
125 FORI=1T0109:NEXT:POKE 36876,0 
127 PRINT"MHELL DONE, YOU SCORED" 


B8ses 
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130 PRINT 200-B;"ON THAT ONE" 

140 IF 200-B>BEST THEN BEST=200-B 
150 PRINT" MMMIBEST SO FAR IS"; BEST 
168 FOR TO 1648 

17 NEXT G 

168 PRINT"2" 

198 GOTO 29 


CUTTING THEM UP 


One of the really great aspects of your computer is the way it 
can be used to manipulate strings. Itis called ‘string slicing” and 
works as follows. The string (which can be a word in quotes like 
“HELLO” ora string variable, such as AS) is used with one of 
the following three statements: LEFTS, RIGHTS, MIDS. For 
example, PRINT LEFTS(AS,3) would print the three left most 
characters of the string AS. If the number is greater than the 
length of the string, then the whole string would be printed. 
PRINT RIGHTS(“HELLO",2) would print the two right 
most characters of the string (“LO”). PRINT MIDS(BS,5) 
would print the string BS out from the fifth character onwards. 
A second number can be added to the statement as follows: 
PRINT MIDS(“HELLO THERE",5,4). This will print four 
characters of the string, starting from the fifth along 
(“OTH”). 


This can also be used to extract a single character froma string. 
Can you see how you would do this? The MIDS statement is 
used with the first number being the position of the character 
you want in the string, and the second number being 1 to show 
that you only want one character. Thus PRINT MIDS(A$,3,1) 
will print the third character of AS. As well as printing the 
strings, you can of course assign them to other strings. Such as 
LET AS=LEFTS(BS,3,2). 


The next program should help make this clear. The string 
variable AS is set equal to “FIFTH*AVE” in line 10, and 
various portions of this are selected by the lines of the program. 
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Kun it as it is, to see if you can follow through what is 
happening in each line: 

18 LET RS="FIFTHOAYE™ 

15 PRINT "AS = "5S 

2@ PRINT “MIDS(RS,2) = ";MIDSCAS,2) 

32 PRINT "RIGHTS(AS,4) = ";RIGHTSCAS, 4) 

4@ PRINT “MIDS(AS,6,1> = “;MIDSCAS,6, 1) 

SQ PRINT "MIDSCAS.4,4) = ":MIDSCRS, 4,4) 

6 PRINT “LEFTS(AS.7) = “;LEFTSCAS,7) 


You'll see this when you run the program: 


AS = FLFTHRAVE 
MIDSCAS,2> = IFTH#AYE 
RIGHTSCAS,4) = AYE 
MIDSCAS,6.1) = # 
MIDSCAS,4,4) = THAR 
LEFTSCAS,7) = FIFTHOA 


Now change A$ in line 1 to your name, or another word of 
your choice, and run the program again. 


PUTTING THEM BACK TOGETHER 

Strings can be added together on your computer. The process 
of adding strings is called the frightening-looking word 
concatenation, You can concatenate two complete strings 
logether, or just add bits of them, as our next program shows: 


18 LET AS="AMERICA" 

20 LET BS="COLUMBUS” 

30 LET CS=AS+BS 

49 PRINT "AS= "GAS 

5@ PRINT "BS= "i BS 

69 PRINT "C= "iC 

78 LET D=INTCRNDC1)96+1> 
88 LET E=INTCRND<1)#6+1> 
9@ LET DS=MIDS<Cs.D.E> 
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108 PRINT “Ds= "i DE 

119 LET Es=As+Ds 

120 PRINT "ES= "jES 

‘When you run this program, which creates C$ in line 60 by 
concatenating AS and BS, you'll see results like these three: 


Ais= AMERICA 

BS= COLUMBUS 

C$= AMERTCACOLWBUS: 
D$= MERI 

Es= ANERICAMERT 


AS= ANERICA 

BS= COLUMBUS 

CS= AMERICACOLUMBUS 
TCACOL 

E$= AMERICAICACOL 


i 


As= AMERICA 

BS$= COLUMBUS 

C$= AMERICACOLUMBUS 
DS= RICA 

E$= AMERICARICA 


PLAYING AROUND 


You can do a number of things with string slicing, as our next 
program demonstrates. NAME PYRAMIDallows you to enter 
your name to produce a very interesting display. Once you've 
seen the program running, you'll understand why the program 
has been given the name it has. Notice the string variable COS 
which controls all the colour control codes. This isa useful trick 
because it allows you to print in colour number N, simply by 
typing PRINT MIDS(COS,N,1). The G variable is used in line 
60 both to choose the colour using this method and also to 
‘choose the element out of the name string: 


(CHAPTER TEN 


1 REM NAME PYRAMID 

2 REM SHOWING STRING SLICING 

3 COS=" SRMEST" POKE 36878,15 

5 POKE 36879,6:PRINT"SJa"; 

1@ PRINT"WHAT IS YOUR": INPUT"NAME" | AS 
20 IF LENCRS)>11THEN AS=LEFTSCAS, 11) 
30 LET RSLENCAS) 

33 PRINT TABC1@); "Me":REM CBM SHIFT “D’ 
4@ FOR G=1 TOR 

45 PRINT TABC11-G); 

5@ FOR H=1 TO 286 

69 PRINTMIDS(COS,G/1.7+1, 1); MEDS(RE,G,1)5 


70 NEXT H 
80 PRINT 
98 POKE 36876, 128+4#6 
189 NEXT G 
118 POKE 36876.0 
. 
nM 
AARA 
RRRRRR 
KKKKKKKK 
IISIIISIIIII 
RARRARARRARAAR 
earrings 
EEEEEEEEEEEEEESEEE 


SSSSSSSSSSSSSSSSSSSS 
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1 

cc 

oc00 
manent 
Maeearaetpgnd 
‘goo0000000 
DDDDDDDDVDND 
onosoogcq00000 
RRRRRRRRRRRRRRRR 
EEEECEREEEEEEEEEEE 


PLAYING IT BACK 


Our final program in this chapter shows one very effective use 
of string slicing, in which a string is progressively reduced by 
one element. When you run ECHO GULCH, you'll see a letter 
appear on the screen. It will then vanish. Once it has vanishied 
(and not before) you will have a limited amount of time in 
which 1o press the key itself. 


If you have pressed the right key, a short tune will sound, and 
the letter will be replaced with a new one. This will stay on the 
screen for a shorter time. Each time a new letter appears, you 
will be given less time to see it, before you'll have to type it into 
the computer. If you make a mistake, the “SORRY, THAT'S 
WRONG” message will appear, along with your score. If you 
manage to get all of a list of letters right, you'll be rewarded 
with a “YOU'RE THE CHAMP!!!" message. Here's the 
listing: 


5 PRINT "cl" :POKE36678, 15 

18 REM ECHO GULCH ~ SHOWING STRING S 
LICING 

15 LET S=O 

20 LET AS=MIDS<"ABCSDKDMBUDBCETTHRSGO 
DEIKDGSHBECDADBCER" INTCRND(19#6+1)> 
90 PRINT "SMARILRDTCEDRORORBRES | LEFT 
SCRE 1) 
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25 FORG=17014#LENCAS) ‘NEXT: PRINT"Z” 
48 GET BS 

‘5@ IFBS<"A" OR BS>"Z" THEN 40 
SS PRINT "AMDRUOMAOReBRDREA" | BS 
6 IF BS=LEFTS(AS, 1) THENFORG=1TO194RN 
11439: POKES6876, 128+G : POKE36876, 255 
-G:NEXTG 

62 POKE36876,2 

6S PRINT "SOMMDADeANTe TNT 
R G=1 TO 20:NEXT G 

7 IF BSCDLEFTS(AS, 1) THEN 110 

90 LET AS=MIDSCRS, 2) 

85 IF LENCAS)=1 THEN 140 

90 LET S=S+i 

188 GOTO 3a 

119 PRINT" MOMADDISORRY, THATS WRONG" 
12@ PRINT" MMYOU SCORED" ;S 

138 STOP 

14Q PRINT" MMDIVOU’RE THE CHAMP! 1" 


a" :FO 


The variable S, which holds your score, is set to zero in line 15, 
and line 20 sets the string variable A$ toa long line of letters. If 
you look at those letters in line 20, you'll see a 
complicated looking statement beginning with MIDS and 
including RND. This chooses a random starting place for the 
string (one of the first six characters) so you will get different 
letters each time you runit (although, of course, they will be the 
same from the starting point, but the random starting point 
gives the effect of a new list of characters each run). Line 30 
prints LEFTS(AS,1), the first letter only of the string, on the 
screen, and line 35 inserts a short delay loop, which uses the 
LEN function. This is another string function, and returns the 
length of astring, that is, the number of characters which make 
it up. LEN does not make any distinction between letters, 
numbers, symbols or spaces, as you'll discover if you enter a 
number of PRINT LEN A$ statements, after setting AS to 
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equal various words, symbols and sentences. Because AS is 
reduced by one character by line 86 each time the program 
cycles, LEN AS is a smaller number each time, so the delay 
produced by line 35 (which dictates how long the character will 
bbe on the screen before it vanishes) becomes shorter. 


Line 40 uses GET to read the keyboard. GET, as you've 
probably worked out by this point in the book, does not 
demand that you press RETURN after touching a key. GET 
does not, in contrast to INPUT, waif until you have pressed a 
key before the program continues. If you are not touching the 
keyboard when the program reaches a GET it simply passes 
right through the line, reading your non-touching of the 
keyboard as the mull string, (two quote marks with nothing, not 
even a space, between them, as ‘*"”). 


Line 5@ looks at BS, the variable which is set equal to whichever 
key is being pressed asthe program goes through line 48. As you 
can see in line 50, you can use the greater than (> )and less than 
(<) symbols, which we discussed in chapter eight, in 
connection with strings. These look at all elements of a string, 
and compare them in terms of alphabetical order (so 
“ZEBRA” is less than “AARDVARK”, and “BEAST” is 
greater than “BEAUTY”). You can compare strings using 
equals (= )and not equals (< > )asis shown in the next few lines 
of the program. Line 68 compares the key you’ ve pressed (BS) 
with the first element of AS, and if they are the same, continues 
through the multi-statement line to play the sounds produced 
by the G loop. Line 65 then prints a green square on the spot 
where the next letter will appear. Line 78 compares BS with 
LEFTS(AS,1), and if finds they are nor equal sends the 
program to lines 11@ and 120 where you are told “SORRY, 
THAT'S WRONG" and your score is given. Line 80 strips the 
string AS of its first character, by setting A$ equal to 
MIDS(AS,2). Line 85 checks to sec if the length of AS equals 
‘one (that is, if LEN(AS) = 1) and if it finds that itis, goes to line 
140 to print out the “YOU'RE THE CHAMP!!!” message. If 
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not, line 99 adds one to variable S, your score, then cycles back 
to line 30 to print the next letter for you. 


CHAPTER ELEVEN 
READING DATA 


Inthis chapter we'll be looking at three very useful additions to 
your programming vocabulary: READ, DATA and 
RESTORE. They are used to get information stored in one part 
of the program to another part where it can be used. 


Enter and run this program, which should make this a little 
clearer: 


1@ REM READ, DATA RESTORE 
28 DIM ACS 

30 FOR Bet TOS 

40 READ ACB) 

50 PRINT ACB) 

60 NEXT B 

76 DATA 88.8392, 23,32,444 


Using line 48, the program READs through the DATA 
statement in line 7@ in order, printing up each item of DATA 
(with line 50), 


RESTORE moves the computer back to the firstitem of DATA, 
in the program, as you'll discover if you modify the above 
program by adding line 55, so it reads as follows: 


19 REM READ, DATA RESTORE 
26 DIM ACS 
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30 FOR B=1 10 5 
40 READ ACB) 

59 PRINT ACBD. 

55 IF B=3 THEN RESTORE 
68 NEXT B 

76 DATA 88,8392, 23,32.444 


It does not matter where in the program the DATA is stored. 
The computer will seek it out, in order from the first item of 
DATA in the program to the last, as our next program (which 
scatters the DATA about in an alarming way) convincingly 
demonstrates: 


1 DATA 45 

1@ REM READ, DATA RESTORE 
28 DIM ACS) 

22 DATA 88 

30 FOR B=1 TO 5 

4@ READ ACB) 

59 PRINT ACBD 

55 DATA 432 

68 NEXT B 

70 DATA 933.254 


READ and DATA work just as well with string information: 


10 REN RER 
29 FOR Bet 7 


3@ READ AS 


You can mix numeric and string DATA within the same 
program, so long as you take care to ensure that when the 
program wants a numeric item that a number comes next in the 
program, and when it wants a string item, it finds it 
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1g REM MIXED DATA 

28 FOR 135 

3@ READ AS:READ A 

40 PRINT ASA 

S@ NEXT B 

64 DATA THIS. 342, SHOWS, 34, DATA, 3333 

78 DATA IN,23,ACTION, 742 

In our next program, GALACTIC GROCER, written by Tim 
Rogers, the goodies you are trading with start off their lives in 
DATA statements in lines 9008 and 9616. The relative value of 


these strange objects is stored in the two DATA statements 
which follow 


In this program you are the Galactic Grocer, trading such 
interstellar goodies as coal dust, reject soap, aspidistras and 
zine hub-caps. As you'll discover, these items are in great 
demand throughout the galaxy. You start out with some 
money, and a stock of goods, provided by Galactic Grocery 
Central, and you are attempting to zap around space, trading 
here and bartering there, (o return to Central with more goods. 
On arrival, the goods in your hold will be sold for twice the 
amount you paid for them, and a tenth of the profits will goto 
you. The program is set over some 26 years, compressed into a 
quarter of an hour or sa by the computer time continuum 


ut there, in the cut and thrust of interstellar commerce, you'll 
meet other hard-nosed Grocers from other firms, planets and. 
star systems. They'll be on their way to other points in the 
Known Universe, and will be willing to trade with you. Keepin 
mind — when considering purchasing anything from wily 
traders — that the point of the game, so far as you are 
concerned, is to try and stockpile the really pricey merchandise. 
If you don’t want to buy from, or sell to, a particular trader, 
then just press RETURN (that is, you do not have to press 0, 
then RETURN). 
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10 sets the variable PA (which will control the 
ground) to zero (black), and inline 116, variable IN (which 
will control print colour) is set to 8 (yellow). The subroutine 
{rom line 7000 (to which you are sent by line 128) sets the 
BORDER and background to PA and the ink to IN, followed 
hy clearing the screen. On returning from this subroutine, a 
function is defined in line 138. This will be called later on in the 
program to generate random integers, Line 150 prints the 
program's name near the bottom of the screen, and line 990 
seeds the random number generator. 


Arrays are dimensioned and variables initialised in the lines 910 
to 1160. Line 1015 makes sure the VIC is in capitals mode, 
make sure the shift lock key is off. 


The C$ array is filled with your initial supply of goods (the coal, 
dust and the like) with the loop from 1049 to 1080, and a 
diagonal row of stars is printed (line 1875) to keep you amused 
while this is going on. Line 115@ ensures that around 15 per cent 
of the ‘O" array will contain numbers generated at random 
between one and 16000 (using the function S which was, you'll 
recall, defined in line 138), More stars are printed by line 1155. 


Once the loop has been traversed, 1165 sends the program to 
the subroutine starting at 8500 which makes a few noises, and 
flashes the border at you, ending up (line 8568) with a black 
border again. Line 1170 sets the variable W (the year) to 2100, 
and 1189 sets up your starting money (variable M) to a value 
somewhere between 10000 and 26000 (using function S again). 
Line 1198 sends the computer to the subroutine from line $000, 
which works out the value of your cargo, adding this value (J) 
to your money (M), on returning from the subroutine, sets J1 
equal to the value of your cargo (J). Line 2000 assigns Values to 
the background, border and print colours, then sends action to 
the subroutine from line 7000 to put them in order. 


In lines 2040 and 2050 the year (W) and your money (M) is 
printed out. Another blank line is printed (by line 2668) then 
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the loop from 2078 to 2098 prints out your holdings. The string 
variable BS is set equal to “BUY"” in line 2108, and then in the 
subroutine from 3000 (where the program is directed by line 
2116) the entire buying and selling occurs. Before 300@ is called 
again, by line 2148, BS is set equal to “SELL". The word 
assigned to BS determines the word which is assigned to S$ 
(either “BUY” in line 3630 or "SELL" in the following line). 
Both BS and SS are used in the print lines from 3158, where you 
or 


‘The year (W) is incremented in line 2158, and the next line 
checks to see if 20 years have elapsed since the game began. If 
they have (and W is not [ess than 2126, as checked by 2168) the 
program ‘falls through’ to the next line, where the final report 
is generated: "YOU HAVE ARRIVED IN PORT. .."" and so 
on, until you are told how much profit you made (line 2364). 

The ‘best profit so far’ is calculated (the best profit is assigned 
to variable 1). You are then asked the question “DO YOU 
WANT TO PLAY AGAIN?” (asked in line 2408) can be either 
a"*¥" oran“*N™. Ifyou answer ““Y", the program goes to line 
1000, which ensures that I, the ‘best profit so far’ variable, is 
not reset in line 918. The function do not need to be redefined 
either, so they are missed out (the DEF FN line is before 1800). 


18 POKE36878, 15 

20 YE=" ONAN 
25 XS="s0DRDRDDDEDEDRDDDDRDDDI” 
32 COS="sammT 

100 LETPAS8 

118 LETINeS 

12@ GOSUB7200 

139 DEF FNSCXSINTCRNDCL)#X7+1 
150 PRINTLEFTS(Y$,22)" GALACTIC GR 
CER" 

980 I=RND(-T1) 

91@ I=0 


CHAPTER ELEVEN 


1989 DIMCS¢21) 

1005 DIMOZ<21> 

1915 PRINTCHRS( 142); 

1028 DIMMZC21) 

1225 RESTORE 

1938 DIMP(21) 

1948 FORASLTOZL 

1845 POKE36976, 15048 

1050 READAS 

1878 C$CAD=AS 

1075 PRINTLEFTS(Y$, A) jLEFTS(X$,A) 
1288 NEXTA*POKES6876.9 

1999 FORA=1TO21 

IFAC6 THENREADMZ(AD: NEXT 
MACAD=1 

NEXTR 

FORA 1TOZ1 

1195 POKES6976, 280~A 

1140 READPCAD 

1152 IFRND(1)>. SSTHENO%<R)=FNS¢ 10080) 
1155 PRINTLEFTS<1$, 9) ;LEFTS(X$,22-A); 


1160 NEXTA:POKES6S75, 0 

1165 GOSUBESAa 

1178 W=21@0 

1188 M=1@@@Q+FNS( 10900) 

1198 GOSUBSeae 

1195 Ji=7 

2900 PAB: IN-8°G0SI!87020 

2210 PRINT" SMMGALACTIC GROCER AAS 


2240 PRINT"YEAR” jTABCB) 5M 

2858 PRINT"MONEY"; TABC7);"£" iM 
2868 PRINT 

2078 FORA=iTO21 


105 
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2082 IFO%(R)<>OTHENPRINTOX (A); TABC8) + 
cscAD 

2099 NEXTR 

2100 BS="BUY" 

2118 GOSUB3000 

2138 BS="SELL" 

2140 GOSUBS@00 

2150 Weil+t 

2168 IF WC2128 THEN2@00 

2178 GOSUBSAGa 

2188 J2=J 

2208 PA=6: IN=2:GOSUB7000 

2218 PRINT"YOU HAVE ARRIVED IN PORT 


2225 2=J1 :GOSUB4520 

2238 PRINT"YOU STARTED QUT WITH" 

2235 PRINT"£";Z$:PRINT"WORTH OF GOODS 
2245 2=J2:GOSUB4500 

2268 PRINT" MVOU NOW HAVE £"52$ 

2278 PRINT"WORTH OF GOODSE" 

2298 V=INTC(J2-J1>7J1#180) 

2300 PRINT"YOU MADE"; V:PRINT"% PROFIT 


2320 IF ICV THEN IV 

2340 PRINT" MBEST SO FAR IS") 1;"%" 
2408 PRINTLEFTS(¥$,21);"DO YOU WANT T 
O PLAY AGAIN?" 

2405 GETQS: IFQ$<>"Y"ANDOSO"N"THEN249 
5 


2410 IFQS="Y"THENIG20 
2428 STOP 

300@ PRINT 

381@ N=FNS¢S) 

3030 S$="BuY" 
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3040 IF B$="BUY" THENS$="SELL" 

3045 PRINT" THERE ARE"; Ni "TRADERS" 
3050 PRINT"WISHING TO ";S$ 

3055 PRINT"SOME GOODSMM" ;LEFT$<¥$, 22> 
iLEFT$(X$, 8) "PRESS ANY KEY" 

9068 GETAS$: IFA$<> 
3062 GETAS: IFAS: 
3065 GISUBSAAR 
3078 FORA=1TON 
3075 F=FNS(3) 
3080 X=FNS(21> 
3085 IFF=1THENGOSUB4200: IFX=@THEN3Z79 
3099 Y=FNS< 10000) 

3095 P=FNSCY) 

3108 Z=FNS(188> 

3149 Z=INT(Z#PCX))/188 

3145 GOSUB4590 
3159 PRINT" TRADER"; 
3168 PRINTS$;P; "TO! 
3170 PRINTCS¢X);" AT £":Z$ 

3180 PRINT"ERCH" 

3198 PRINT"<YOU) HAVE £"5M5">" 

3195 PRINT"CYOU HAVE" j02¢X))C$CKI5")" 
320@ GOSUB7S88 

3205 PRINT"HOW MANY TO"; BS:US="": INP 


WISHES TO" 


3218 IFUS=""THENS270 
3215 U=VALCUS> 

322G IFUCPORUDYTHENS200 
3225 IFB$="SELL"THENU=-U 
923 IFUC-0%¢%) THEN3200 
3240 IFM-UmZ<=@THEN3199 
3250 M=1 
3268 O26» 
3278 NEXTAR 
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3275 IFN=OTHENFORH© 170300: NEXTH 

3280 RETURN 

4002 PRINT" TRADER"; Ai "SRYS:-" 

4010 PRINT"WHAT DO YOU WANT TO" :PRINT 
BE 

4828 Z$=""° INPUTZS 

4025 IFZ2$=""THENX=2: RETURN 

4830 FORB=17021 

4040 IFZ$=MIDS(CS(B),MZ¢B),LENCZ$))TH 
ENX=B :G0704100 

4052 NEXTB 

4262 PRINT 

4088 60704920 

4108 [FRNDC1)¢, STHENX=B RETURN 

4119 PRINT"SORRY, TRADER" ;A; "DOES" 
4415 PRINT"NOT WANT ANY" 

4128 PRINTMIDS(C$(B) .MZCB)) ‘K=O 

4132 RETURN 

452 Z$=STRS(Z) 

4518 FORR=1TOLEN(Z$) 

4529 IFMIDS$(Z$.R,1)=", "ANDR=LEN(Z$)T! 
ENRETURN 

4532 IFMIDS(Z$,R, 1)=". "ANDRSLENCZ$)-1 
THENZS=7$+"0" 


5018 FORA#1T021 

5028 J=J+02%¢ RHP CRIS 
5038 NEXTA 

5048 + 

5852 RETURN 

7882 POKE3E879. PRELE+PA+S 
7019 PRINTHIDS<COS, IN, 193" 
7848 RETURN 
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7508 NO=FNS(28)-FNS(28) 

751@ POKE36876, 200+N0 

7520 POKE36876.209+NO 

7530 POKE36876,0:RETURN 

9000 IFS$="SELL"THENPA=3: IN=1 :GOSUB70 
‘RETURN 

881@ PA=2: IN=2:GOSUB7200 

8820 RETURN 


9580 POKE36879, (PEEK(36879)AND248>0R2 
8510 POKE36876, 130 

8520 POKE36879, (PEEK (36879>AND248)0R7 
8530 POKE36876. 15@ 

8549 POKE36979, (PEEK(36879)AND248 ORS 
8559 POKE36876, 140 

8568 POKE36879, (PEEK(36879>AND248) 
8578 POKE36876,0: RETURN 

9080 DATATONS COAL DUST, CMT ORANGE PE 
EL, KG GRAIN.GALLONS SILICON INK 

9925 DATABARS REJECT SOAP, SMARTIES, EX 
-DICTATORS, TEST-TUBES, TY SETS. FISH 
9018 DATAMISSILES. ASPIDISTRAS, MATCH H 
EADS, SLIPPERS, CHIPPED MUGS, ZINC HUB-C 
APS 

9015 DATATOE NAILS,PEN TOPS,PAPER BAG 
$, BADGES, NOISES 

9820 DATAG,5.4,9,6 

9020 DATAIG, 18,3,38,0.3,0.1,15,1,250, 
3,1000,4,.1,5.1,.5.10,1,8,.2,0.1.3,23 


CHAPTER TWELVE 
WONDERS OF THE 
VIC CHIP 


Your computer has a chip inside it known as the VIDEO 
INTERFACE CHIP. The VIC takes its name from this chip, 
which handles the screen display, the sound, and joysticks etc 
Remember in chapter seven we introduced the idea of registers 
when discussing the sound, we shall now introduce more 
registers. but first, it might be an idea to introduce something 
known as binary arithmetic. 


If you feel this next bit is going to give you a headache, just 
move to the later stages of the chapter and come back to the 
theory when you feel more confident. 


Computers, and your VIC is no exception, think in a number 
system known as binary. In binary, each digit can be cithera ! 
ora. Each digit is referred to asa bit, and it is common to use 8 
or 16 bits. Normally, theright most digit is the units, the next is 
the tens, the next the hundreds etc. Notice how this is going up 
in powers of ten. In binary the right most digit is one, the neat is 
two, the next is four, the next is eight etc. Notice how this is 
going up in powers of two. This is why normal numbers are said 
tobe in base ten (denary), and binary numbers are said to be in 
base two. 


Imagine an eight bit number, where each bit is a column. We 
will place a 1 in a column if we want to include the 
corresponding power of two, otherwise we will use a 0. For an 
ight bit number, the powers of two range from 0 to 7, and are: 
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1, 2,4, 8, 16, 32, 64, 128. As youcan see if a I was placed ineach 
column and all the powers of two added, the highest number 
stored in an eight bit system would be 255. 


The first ten numbers in binary are: 


NUMBER2? 2 22252? te 
128 64 #32 16 8 #4 2 1 
0 6 6 6 6 6 6 8 6 
1 6 6 6 @ @ 8 8 1 
2 @ 6 @ ® 6 8 1 #6 
3 6 6 @ 6 8 @ 1 1 
4 6 6 © @ 6 1 68 6 
5 6 @ 6 @ 6 1 6 1 
6 6 8 6 8 6 1 1 6 
7 @ 6 6 6 6 i LA st 
8 6 @ @ @ 1 6 6 6 
9 6 @ 6 6 1 @ 6 1 
254 tr 2 od od, We de de 
255 | 1 oo1 1-4 Rane 


Do you understand it now? No, then read it again, but slowly! 
Your VIC has a large number of memory locations numbered 
between @ and 65535. Some of these you can store numbers in 
(known as RAM), others you cannot alter because the 
computers instructions are stored there (known as ROM), and 
some are just empty spaces which may be filled when you plug 
cartridges into the back of your VIC, The ones we are interested 
in are in the RAM (random access memory, because you can 
access what you like). All of these memory locations are known 
as bytes and are composed of eight bits (that’s what all that was 
about). Sometimes the VIC combines two bytes so it can handle 
sixteen bit numbers (up to 65535 — the number of memory 
locations), but that’s not important right now. You can look at 
any of these memory locations with the function PEEK(N). 

This returns the memory stored in memory location (called an 
address from now on) whose number is N. This has a command 
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related to it: POKEN,P. This stores the number P (which must 
be between @ and 255) in address number N.POKE will only 
affect RAM, whereas PEEK will look at any address. Some 
areas of RAM the computer uses for itself, others are used for 
storing your program and variables in coded form, and others 
are used for storing the screen and colour displays. For this 
reason you should be careful where you POKE ('). If you upset 
the computer too much, you may have to switch off and on 
again. You can never damage your computer with POKE, but 
you can easily destroy any program you have in. Don’t let this 
worry you though, experiment around and see what wonderful 
effects you can achieve with this command. 


And now, back to binary. You've already met the statements 
AND and OR which were used to combine conditions in an 
IF... THEN statement, they also have a different use in 
binary. 


In binary, if we AND two numbers together, the corresponding 
bits of each number are compared and if both the first AND the 
second are one, then the result is one — otherwise the result is 
zero for that bit. 
Example 98 AND 174 
01100018 98 
AND 10161118174 
GIVES @O100010 34 
If we OR two numbers together, the corresponding bits of each 
‘number are compared and if either the first OR the secon 
one, then the result is one — otherwise it is zero. 
Example 98 OR 174 
110001098 
OR 10181116174 
GIVES 11101110 238 
‘There is another one, although not used as often as the others 
we may as well mention it here. It is called NOT. 


If we NOTa number, all its bitsare reversed, i.e. all ones turn to 
zeros and all zeros turn to ones. 
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Example NOT 98 


NOT 
GIVES 


The VIC chip (we hadn't forgotten about it) has a number of 
control registers which you can alter. These are rather like 
RAM locations, except that storing things in them creates 
special effects. 


THE VIC REGISTERS 


There are sixteen registers in all, but some have more than 
one function by splitting into two parts. The address of each 
register will be given, together with a description of its 
funetions. 


REGISTER ADDRESS DESCRIPTION 

o) 36864 The high bit of this register determines 
whether the VIC will be in interlace 
mode or not. When in interlace mode, 
the VIC picture can be mixed with a 
picture from another source provided 
you are using the right equipment. To 
turn it on: POKE 36864, PEEK(36864), 
AND 127. This leaves bits 0-6 alone 
but replaces bit 7 with a zero. To turn it 
on: POKE 36864, PEEK(36864) OR 
128. This leaves bits @—-6 alone and 
replaces bit 7 with a one. 


Bits @-6 determine the horizontal 
position of the main picture on the TV 
sereen. The normal value is 12. The 
bigger the value, the further to the right 
the image appears. Remember that the 
value can be between @ and 127 with 6 
bits. If N is the position of the screen 
type: 
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36865, 


36866 


36867 


POKE 36864, (PEEK (36864)AND 128) 
ORN. 

This resets bits @—6 to zero but leaves bit 
7 alone. Bits @~6 are then replaced with 
Ne 


Alleight bits are used for this one (8-7), 
which determines the vertical position 
of the picture on the screen. The value is 
normally 38. The bigger _ the 
number, the further down the image 
‘appears. You can move the image by 
two dots (often called pixels) at atime, 
Therefore a value of 24 would move the 
display up by two dots. If N (between ® 
and 255) is the position of the screen, 
type: POKE 36865, N. 


The high bit of this register is used with 
register 5, and will be described there. 


Bits 0-6 determine the number of 
columns on the screen (normally 22), 
Numbers over 27 will give a 27 column 
sereen. The cursor controls will not 
work normally if you alter this, as they 
are based around a screen of 22 
columns. If N is the number of columns 
(between @ and 127), type: POKE 
36866, (PEEK (36866) AND 128) OR N. 


Bit 7is used with register 4, and will be 
described there. 


Bits |—6 determine the number of rows 
on the screen (normally 23). If this is set 
greater than 23, strange things will 
appear at the bottom of the screen (this, 
is known as garbage — a rather general 
term used to mean anything you don’t 
want). IfN is the number of rows, type: 


36868 


36869 
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POKE 36867,(PEEK(36867) AND 129) 
OR (N*2). This leaves bits 7 and @alone, 
and replaces bits 1~6 with N. Notice 
how N has to be doubled in order to 
change it from bits @~5 to bits 1~6. 


Bit @ is used to determine the size of the 
characters on the screen, Normally they 
are made of 8 by 8 pixels, but when this 
bit is set to a 1, each character is 
composed of 8 dots across by 16 down. 
The use of this will be discussed in 
chapter fourteen. To set normal height, 
type: POKE 36867, PEEK(36867) AND 
254. To set double height, type: POKE 
36867, PEEK (36867) OR 1. 


This register forms bits 0-7 of a 9 bit 
number, the high bit out of register 3 is, 
used for bit 8. The resulting number is 
known as the raster value, and is used (0 
synchronize the light pen with the TV 
picture. 


This is a hard one. Bits 4—7 determine 
which part of memory the VIC stores 
the screen image. Bit 7 MUST bea |. Bit 
7 of register 2 is bit 9 of the screen 
address, and bits 4—6 of register 5 form 
bits 10-12 of the address of the screen. 
To work out where the screen starts in 
memory, use the formula: 

LET S = 4*(PEEK(36866) AND 128) 
+ 64*(PEEK(36869) AND 112). 


Bit 7 of register 2 also has another 
purpose. If it is a 0, the colour starts at 
address 37888, otherwise it starts at 
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36870 


36871 


36872 


36873 


36874 


address 38480 (this is what it normally is 
for the unexpanded VIC). A formula 
for calculating the start of colour 
memory is: 

LET C= 37888 + 4*(PEEK(36866) 
AND 128). 


Bits 0-3 determine where the computer 
gets its information about the shapes of 
the characters. Normally this points to 
an area known as the character 
generator ROM, where both the VICs 
character sets are stored. To design your 
own characters you must make this 
point into some spare RAM where you 
have stored your characters. This will be 
discussed in chapter fourteen. 


This contains the horizontal co- 
ordinate of the light pen, from theleft of 
the screen. 


This contains the vertical co-ordinate of 
the light pen from the top of the screen. 


This contains a value between @ and 255 
for game paddle X. 


Same as above, but for paddle Y. 


The high bit (bit 7) switches the bass 
voice on (voice 1). This is why the four 
voice registers must be POKEd with a 
value greater than 127 to produce a 
note, the high bit of each register must 
be a I to enable the voice. 


4 


15 


36875 


36876 


36877 


36878 


35879 
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Bits 9-6 are proportional to the 
frequency of the note, i.e. the higher the 
number, the higher the note. 


‘The high bit switches the alto voice on 
(voice 2). 


Bits 0-6 are again proportional to the 
frequency, but one octave higher than 
voice 1. 


‘The high bit switches the soprano voice 
‘on (voice 3). 


Bits @-6 are proportional to the 
frequency, but one octave higher than 
voice 2 (i.e. two octaves higher than 
voice 1). 


‘The high bit switches the noise on (voice 
4). 


Bits @~6 are proportional to frequency. 


Bits 4—7 determine the auxiliary colour, 
which is used with multi colour 
graphics. It can have a value between 0 
and 15 (that’s sixteen colours). If N is 
the value then type: POKE 
36878,PEEK(36878) AND 15 OR 
(16*N). 


Bits @—3 correspond to the volume of 
the sounds. ® is silence, and 15 is 
loudest. If N is the volume, type: 
POKE(36878) AND 248 OR N. 


Bits 4-7 determine the background 
colour of the screen (one of sixteen 
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colours numbered 8-15), If N is the 
value, type: 

POKE 36879, PEEK(36879) AND 240 
ORN. 


Bit 3, when set to a 1 causes normal 
display, and when set to a @ causes 
reverse. mode. In this mode, all 
characters on the screen will appear 
reversed, they will still have the same 
codes as in normal mode, because it is 
entirely independent of the reverse 
mode caused by a control code. To turn 
on reverse mode, type: POKE 36879, 
K(36879) AND 247, to turn it off, 
type: POKE 36879, PEEK (36879) OR 8. 


Bits @-2 set the colour of the screen 
border (one of eight colours numbered 
0-7). If N is the value, type: POKE 
36879, PEEK(36879) AND 248 OR N. 


That concludes the overview of the VIC chip, now for what 
you've been waiting for: 


LIVING MORE COLOURFULLY 

or WHERE YOU SHOULD COME TO IF YOU 
MISSED OUT THE HARD STUFF 

You have a colour computer on your hands, and you should 
make the most of it. We'll start our investigation of ways of 
improving your programs by referring back to the FAST 
FOOD program which was first introduced in chapter four. 


We have been using colour in many of the programs you've 
encountered so far in this book, so you may well have a pretty 
2004 idea of how to use the facilities. You'll see the names of 
the colours above keys 1 to 8. There is another way to use these 
colours without having to use control codes, This involves the 
POKE command once again. Imagine that whenever you use 
the POKE command for colour, the colours are numbered 810 


CHAPTER TWELVE 119 


7 (sometimes 15) instead of 1 to 8 (i.e. subtract 1 from the 
number on the colour key). The first method is to type POKE 
646, N where N is the number of the colour. 


Here's a version FAST FOOD which chooses colours 
randomly before the PRINT statements: 


1@ REM FAST FOOD WITH COLOUR 

15 POKE36873,8:PRINT""; 

2@ PRINT"ENTER RANDOMIZE": INPUT"SEED" 
ifs IFAD@THENAE-A 

25 A=RNDCAD 

3@ ASINTCRNDCL>¥4+1> 

95 BeINTCRND(1>#5+2) 

37 PRINT'MWR 13";A:PRINT"B IS"|B 

4@ POKE 646,B:PRINT"YOU’VE ORDERED" 
5@ IFR=1 THEN POKES46,B/2:PRINT"A HAM 
BURGER WITH THE LOT" 

60 IFAs2 THEN POKE646,B+1:PRINT"A LAR 
GE FRENCH FRIES" 

70 IFA=3 THEN POKE646,B+1:PRINT"A SER 
VE OF RIBS" 

90 IFA=4 THEN POKE646,B:PRINT"TWO HOT 
DOGS WITH KETCHUP” 

9@ FORI=17040@: NEXT 

108 GOTO 20 


The background colour can be any one of sixteen, and is stored 
in VIC register 15. The sixteen colours are as follows: 


0 BLACK 8 ORANGE 

1 WHITE 9 LIGHT ORANGE 
2 RED 10 PINK 

3 CYAN 11 LIGHT CYAN 

4 PURPLE 12 LIGHT PURPLE 
5 GREEN 13 LIGHT GREEN 
6 BLUE 14 LIGHT BLUE 


7 YELLOW 15 LIGHT YELLOW 
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Incidentally, the first eight colours are the ones normally 


used for the colour of the text your VIC prints in, You can 
see all this in action with the following program: 


1@ REM TEXT AND BACKGROUND 

28 INPUT"BACKGROUND COLOUR"; B 

3@ INPUT"TEXT COLOUR" /T 

40 POKE646, T PRINT" SIO" 5 

45 POKE36879, PEEK(36879>AND1S OR BRIG 
5@ PRINT" AM PRINTING IN COLOUR": T 
68 PRINT" SIMON BACKGROUND" iB 

78 FORA=1 T0990: NEXTAR 

88 RUN 


To set the background to colour N (between 6 and 15), type 
POKE 36879, PEEK(36879) AND 15 OR N*16. 


The border colour can only be one of the first eight, and is 
held in the same register as the background colour. To 
change to border colour N (between @ and 7), type: 


POKE 36879, PEEK(36879) AND 248 OR N. 


‘This variation on the previous program demonstrates: 


1 REM TEXT, BACKGROUND AND BORDER 
20 INPUT"BACKGROUND COLOUR": B 

38 INPUT" TEXT COLOUR" ;T 

35 INPUT"BORDER COLOUR"; BC 

40 POKES46, T: PRINT" TMM" ; 

45 POKES6S79, PEEK(S68792ANDIS OR BH16 
47 POKE36979, PEEK(36879>AND248 OR BC 
5@ PRINT"I AM PRINTING IN COLOUR"; T 
60 PRINT" MMDN BACKGROUND" jE 

65 PRINT" MMWITH BORDER" 
79 FORA=1T0990: NEXTAR 
83 RUN 
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Enter and run the following demonstration to see the colour 
range of your computer: 


1@ REM RANDOM PRINTING 

15 POKE36878,15 

20 LET ASINTCRNDC1)#16) 

38 LET B=INTCRNDC 18> 

40 IF AsB THEN 30 

‘32 LET CeINTCRND(1)88> 

68 POKE646,B 

65 POKE36879, PEEK(36879AND1S OR AN16 
67 POKE36879, PEEK(36879AND248 OR C 
78 FORD=32 TO 52 

8 PRINTTABCRND(1)#22) ; CHRS(D) 

99 POKE36876, 130+D: NEXTD 

18@ POKE36376. 8: FORE=17T0300: NEXTE 
118 GOTO 20 


Remember how, not so long back, we mentioned there was 
another way to change the colour of the text and graphics on 
the screen. Your VIC stores in its memory, the position of 
everything on the screen. Because there are normally 23 lines 
of 22 columns each, there are 506 positions on the screen 
(23*22 = 506). Each of these positions has a corresponding 
“byte’ or location in memory to decide what character is 
stored there. Each location can hold a number between @ and 
255, each number is a code for a character (be careful — this 
is not the same as the ASCII code mentioned earlier). This 
code is listed in your users guide. On the unexpanded VIC, 
the top left hand location is numbered 7686 and as you move 
across the right of the sereen, the locations increase by one. 
When you get to the far right, you go back to the left but a 
line further down. Because there are 22 columns, to stay in 
the same column but move up or down one line, you must 
subtract or add 22. To move left or right, you must subtract 
or add 1. If X is the horizontal coordinate from the left 
{@-21) and_Y is vertical coordinate from the top of the 
screen (8-22), the position to POKE can be found by: 
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P=7680 + Y*22 +X 


There is an area of memory very similar to the one above, 
which refers to the colour on the screen. On the unexpanded 
VIC, the top left hand location is number 38408. Using the 
above coordinates, the position to POKE can be found by: 


P= 38400 + Y*22 +X 
This is demonstrated by the program below: 


18 REM POKING THE SCREEN 
2@ PRINT"21"; 

38 REM RANDOM COORDINATES 
35 REM ¥ (@-22) 

42 LET Y=INTCRNDC19#23) 
45 REM X (O-21) 

5@ LET X=INTCRND( 1822) 
55 REM COLOUR (RED) 

60 POKE 38400+7#22+x,2 
65 REM CHARACTER (BALL-CODE 81) 
7@ POKE 76S0+V#22+X, 81 
82 GOTO 40 


Now to explain the use of things like colour more fully, we 
are going to take a simple program, and gradually elaborate 
it, showing how adding such things as border flashes and 
user-defined graphics can add a great deal of interest to your 
programs. At the end of this section, we'll give you a couple 
of suggestions to apply if you wish to keep improving and 
elaborating the program. 


The program we're going to use as the core of our 
development work is a standard ‘Duck Shoot’ program, in 
which little objects fly across the screen, and you have to try 
and shoot them down. In the first version of the program, 
the little objects are letters chosen at random, and you are 
the letter “X’”. You fire at the “ducks” by pressing the “M"? 
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key, and you move yourself left using the “Z"", and right 
using the *C” keys. 


Although there is no time fimit on this program, there is a 
limit on the number of shots you can fire. In all of the 
versions of this game in this part of the book you'll see (line 
38) the program starts with a limit of 15 shots. In the last, 
most complex, version you will have 50 shots. The number 
of shots is deliberately kept low in the first version so you 
will not be able to get a high score just by leaving your finger 
‘on the “M" key, and waiting for the ducks to fly into the 
line of fire. 


Here, then is the first program. Type it into your computer, 
and press RUN then RETURN, to get it underway 


1@ REM DUCK SHOOT 


20 LET SCO=@:PRINT":Y 
3 LET SHOTS=15 

4@ LET AS="ZAB DK SL DF GFD FOG " 

5@ LET ACROSS=10 

62 LET DOWN=15 

79 PRINTLEFTS(¥$,8)5AS 

80 PRINTLEFTS<Y$, DOWN) ;LEFT$(X$,ACROS 
S-1)i" X ":GETKS 

90 IFK$Q"M"THENIGO 

95 SHOTS=SHOTS~1 : IFMID$<AS, ACROSS, 1)= 
* “THEN1O@ 

97 SCO=SCO+S7: AS=LEFTS<A$, ACROSS-1>+" 


*4MIDSRS, ACROSS+1 > 
100 PRINT" HSCORE:" SCO; TAB(12) "SHOTS: 
";SHOTS;" " 


195 PRINTTABC12)"LEFT" 
11@ IFSHOTS<1THENPRINTLEFTS(Y$, 1195 "T 
HAT’S THE END OF THE GAME": STOP 
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key, and you move yourself left using the “Z"", and right 
using the *C” keys. 


Although there is no time fimit on this program, there is a 
limit on the number of shots you can fire. In all of the 
versions of this game in this part of the book you'll see (line 
38) the program starts with a limit of 15 shots. In the last, 
most complex, version you will have 50 shots. The number 
of shots is deliberately kept low in the first version so you 
will not be able to get a high score just by leaving your finger 
‘on the “M" key, and waiting for the ducks to fly into the 
line of fire. 


Here, then is the first program. Type it into your computer, 
and press RUN then RETURN, to get it underway 


1@ REM DUCK SHOOT 


20 LET SCO=@:PRINT":Y 
3 LET SHOTS=15 

4@ LET AS="ZAB DK SL DF GFD FOG " 

5@ LET ACROSS=10 

62 LET DOWN=15 

79 PRINTLEFTS(¥$,8)5AS 

80 PRINTLEFTS<Y$, DOWN) ;LEFT$(X$,ACROS 
S-1)i" X ":GETKS 

90 IFK$Q"M"THENIGO 

95 SHOTS=SHOTS~1 : IFMID$<AS, ACROSS, 1)= 
* “THEN1O@ 

97 SCO=SCO+S7: AS=LEFTS<A$, ACROSS-1>+" 


*4MIDSRS, ACROSS+1 > 
100 PRINT" HSCORE:" SCO; TAB(12) "SHOTS: 
";SHOTS;" " 


195 PRINTTABC12)"LEFT" 
11@ IFSHOTS<1THENPRINTLEFTS(Y$, 1195 "T 
HAT’S THE END OF THE GAME": STOP 
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Run the DUCK SHOOT program a few times, then return to 
the book for the first part of our discussion on it. 


Line 40 defines the string variable AS as a long series of 
letters and spaces. The letters can be anything you like; don’t 
feel you need to copy ours. The important thing, however, is 
that the string is 22 characters long. You can check this by 
running the program briefly, stopping it with BREAK 
(RUN/STOP), then typing in as a direct command, PRINT 
LEN(AS). If your string is the correct length, PRINT 
LEN(AS), followed by RETURN will give you the answer 
2. 


‘The appearance of movement given to the ducks is created 
by use of Commodore BASIC’s string-handling commands 
which were explained a little earlier in the book. Refer back 
to this section now if you need to remind yourself of how 
they work. The vital line for the moment is line 138, which 
resets AS equal to all of the string without its first character, 
that is, MEDS(AS,2), and then adds to the very end of it the 
character of the string which was at the beginning, 
LEFTS(AS,1). The string is reprinted, over and over again, 
as the program runs (by line 78) in the same position, at 8,0 
(8 lines down, and starting hard in the left hand margin), and 
because the string is in effect being ‘shifted along’ one 
character at a time before it is reprinted, the elements in the 
string appear to move smoothly along. Using strings in this 
way is one of the simplest ways there is on your computer to 
create smoothly moving graphics. 


The string handling also makes it very simple to cause the 
shot duck to disappear from the sky, As the string is 22 
characters long, each character “'shot’” can be referred to by 
MIDS(AS,N,1). That is MIDS(AS,1,1) is the first element of 
the string, MIDS(AS,2,1) is the second one and so on, until 
MIDS(A$,22,1) is the very last spot within the string. 
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Look at line 98. When the computer comes across an 
IF/THEN statement — as you know — it checks to see if it 
is true. If it finds that it is not true, then it moves along to 
the next line in the program, without bothering to carry out 
any further instructions which may be on the same line. If 
the computer finds, at the start of line 98, that KS does not 
equal “M”” (that is, you are not pressing the ““M” key) then 
it jumps to line 100, otherwise it continues straight to line 95. 
Here it decrements the variable SHOTS by one. Then it hits 
another IF/THEN condition, which makes use of the 
Commodore BASIC to isolate an element of a string 
instantly. It looks at MIDS(AS,ACROSS,1). The “*X" which 
is you is printed at ACROSS (actually, as you see in line 80, 
a three-element string, with a space cither side of the “*X"" is 
printed at ACROSS minus one, which has the effect of 
printing the “*X’” at the position referred to by the variable 
ACROSS, so MIDS(AS,ACROSS, }) lies directly above you 


If line 95 discovers that MIDS(A$,ACROSS,1) is 2 space, 
you have missed, so the program jumps to line 100. 
‘Otherwise the variable SCO is incremented by $7 and, finally 
in line 97, that element of AS is set toa blank, so the ‘‘duck”* 
disappears. 


Now all this takes some time to explain, but you will find the 
computer does it apparently instantaneously. You press 
““M” the score increases by 57 (if you're a good shot), the 
number of shots left drops by one, and the duck disappears. 
You'll see (line 110) that the program continues until you run 
out of shots, when the game terminates. Take note of your 
score at this point, and see if you can beat it in subsequent 
runs, 


Once you have the program running to your satisfaction, and 
you have a pretty good idea of how it works, modify it to 
read like the following program. You do not have to NEW 
the computer. Just compare the program you have in your 
computer, line by line, with the next listing and make any 
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changes you need to, by adding a complete new line 15, and 
modifying certain other lines. 


18 REM DUCK SHOOT 


PODDDPDESDHEDDDBE DD! 
15 POKE3S879, 25 
28 LET SCO=@:PRINT"<¥# ; :POKE6S@, 255 
3@ LET SHOTS=15 
4@ LET AS="ZAB DK SL DF GFD FGG ” 
58 LET ACROSS=10 
60 LET DOWN=15 
78 POKE646, INT(RND(1#6+2) :PRINTLEFTS: 


8 POKE646.2:PRINTLEFTS(Y$, DOWN) ;LEFT 
${X$,ACROSS~1)5" % ":GETKS 

90 IFKS<>"M"THENLAQ 

SHOTS=SHOTS~1: IFMIDS<AS, ACROSS, 1)= 
“ “THENIGG 

97 SCO=SCO+57 :AS=LEFTS(A$, ACROSS-1)+" 
“4+MIDSCA$, RCROSS+1> 

100 PRINT"#MSCORE :"; SCO; TABC12>"SHOTS 
";SHOTS5" " 

195 PRINTTABC12)" SLEFT" 

119 IFSHOTS<1THENPRINTLEFT$(¥'$, 1195 °T 
HATS THE END OF THE GAME" STOP 

128 ACROSS=ACROSS+(K$="2")-(K$="C"> 
13@ AS=MIDSCAS, 2)+LEFTS(AS, 1) 

148 GOTO 73 


Now when you run this, you'll see an immediate and quite 
striking improvement. Colour certainly adds a lot to any 
program on this computer. Line 15 sets the background 
colour to white, as well as the border, clears the screen and 
sets the foreground colour to red. 
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Even if we had done nothing else there would be a 
significant improvement in the program, the colours are far 
more interesting than a two tone display 


However, we want to add two more commands to the 
program which will alter the display for the better. These 
are in line 70 and 180. The RND function is used to choose 
a colour at random for each time the ducks and your score 
are reprinted. As you'll see when the program is running, 
the change occurs so rapidly the ducks appear to shimmer 
through the spectrum as they fly across the screen, and 
‘even though it takes the computer an appreciable time to 
generate a random number, the effect on the speed of the 
Program appears to be nil. 


You are probably aware that, in moving graphics 
Programs, everything you get the computer to do — from 
making an IF/THEN decision, adding two numbers 
together, raising one to the power of the other, to 
generating a random number — takes time, and the more 
you get the computer to do before each subsequent frame 
‘of a moving graphics program is printed, the more slowly 
the graphics will move, and the more jerky they will 
appear. 


Apart from the colour changes we've discussed, the 
program is the same as the first listing. However, you can 
see that the few changes we have introduced have improved 
it considerably. We'll now continue with the improvements, 
by adding some sound, and getting the BORDER (the area 
around the picture) to flash when a duck is shot 


Enter this next version of the program, run it to decimate a 
few flocks of ducks, then return to your book for a 
discussion on the program 
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18 REM DUCK SHOOT 

LL VSS" TOLLE" 
DEDPRDRODEDSERDDRRRBD 

15 PQKE36979, 25 

28 LET SCO=@:PRINT"<*34" ; :POKE6S2, 255. 
22 V1S15: V2=15 ‘S128: S2=0 +5390: 5420: DU 


25 FORG=1T020: $2=G+200: GOSUB9@Q2 : NEXT 


LET SHOTS=15 

S2=@:FOR G=S@TO2BSTEP-2 : S3=200+6'G 

OSUB9O00 :NEXTG:S3=0 

4@ LET A$="ZAB DK SL DF GFD FGG “ 

5@ LET ACROSS=12 

6@ LET DOWN=15 

78 POKES46, INT(RND(1)#6+2) : PRINTLEFTS: 
(Y$, 8) A$*S2=128+ASCCRS> * GOSUBSAAA: $2 
=8 

88 POKE646,2:PRINTLEFTS(¥$, DOWN) ;LEFT 
(R$, ACROSS-1)3" % ":GETK$:S3=180+ACR 

OSS: GOSUB9E88 

82 S$3=8 

9@ IFK$<>"M" THEN192 

35 _S3=158+SHOTS#3 : GOSUB9OAR : S: SHOT 

S=SHOTS~1: IFMIDSCAS, ACROSS, 1)=" "THEN 
102 

7 SCOSCO+57 :AECLEFTS CAS, ACROSS-1)+" 
"4MID$ CAS, ACROSS+1 9 'S3=200-SHITS GOS 
UB9B00:S3=8 

98 POKE6879, PEEK (36879 AND24B0RRNDCL 
#8 : POKE36879, PEEK (36879) AND2480RRND¢ 
1048 

99 POKE36879, PEEK (3687SAND2430RRNDC1 
288  POKE36879, PEEK( 36879 AND2480R1 

129 PRINT" H@SCORE:";SCQ;TAB(12) "SHOTS 


a8? 


129 
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:";SHOTS;"_" 

185 PRINTTABC12)"@LEFT" 

110 IFSHOTS<1THENPRINTLEFTS(Y$,11):"T 
HAT’S THE END OF THE GAME" :STOP 

128 ACROSS=ACROSS+(K$2"2")-(K$="C") 
130 ASSMIDS(AS, 2)+LEFTSCAS, t 
148 GOTO 7@ 

28999 REM SOUND ROUTINE 

9089 POKE36878, PEEK(36878)AND242 

9895 POKE36874,S1 :POKE36875, $2:POKE36 
876,S3:POKE36877,S4 

9918 DV=c¥2-V1>/DU 

9815 FORI=2T0DU 

9820 Y1="14+DY  POKE36878, PEEK(36878)AN 
2242 OR V1 

3930 NEXT! : POKE36878, PEEK (36878)AND24 


a 

9849 POKE36874, 8: POKE36875, 0: POKE36S7 
6,8: POKE36877,8 

9052 RETURN 


The new lines are 25 and 35 which use the sound routine to 
create two “loops” of sound before the program gets 
underway. Refer back to the section on sound if you wish to 
refresh your memory at this point 


Line 25 is a loop, using G as the control variable. The loop 
runs from one to 20, and each value of G is used in the 
second part of line 25 to create a tone, which — because G is 
increasing — rises rapidly. The duration parameter is set at 1 
which is close to the shortest sound which we have found 
which can be heard clearly. Line 35 produces another loop, 
this time counting downward. You'll discover that different 
STEP sizes produce quite different types of loop effects, and 
you may well wish to change the STEP in both this line and 
in line 25 
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These two loops, however, are little more than “‘window 
dressing” designed to produce a good starting effect. The 
other beeps used by contrast, are related to other things 
happening within the program when it is running. You'll see 
that a sound call has been added at the end of line 70. This 
takes the ASC (the number which the computer uses to refer 
to the character being printed, so PRINT CHRS(42) 
produces character 42, which you can look up on the 
ASC/CHRS section earlier in this book) of the first element 
of the string AS, that is the element which is further to the 
left, and creates a tone from this. The effect of this is to 
produce a short “beep” just before a duck flies off the 
screen to the left, 


You'll see another sound call at the end of line 80. This one 
is sounded every time the program cycles and, because as the 
variable ACROSS gets bigger, the pitch of the note gets 
higher, you'll find that moving your ‘*X"" across the screen 
to the right will produce a constant higher tone, while 
moving it to the left will lower the tone. 


Perhaps the most interesting sounds are in line 95. Firstly, 
you get a beep, related to the number of shots you have left, 
every time you touch “*M", whether you hit anything or not. 
Run the program, and hold your finger on “*M”, and you'll 
hear the tone steadily decrease till the “THAT'S THE END 
OF THE GAME”, message appears. Line 95, as you know, 
checks to see if your shot has hit anything (that is, it checks 
to see if that particular element of the string AS is equal to a 
space), and if it finds that it is not a space (that is, that a 
“‘duck”” is there, and has just that instant been shot) the 
computer — as well as increasing your score by 57 — beeps 
again, with a tone which although different to the first one in 
the line, is related to the number of shots left. This means 
that if you have a successful shot, you'll hear first the tone 
(which falls with each shot fired) from the first part of line 
95, followed by a tone (which rises as the SHOTS variable is 
decremented) which signals that a duck has been shot. So 
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you hear two tones, in rapid succession, And if you're not 
quick in taking your finger off the “trigger” you'll hear a 
third one, or even more. 


Lines 98 and 99, which change the border colour four times, 
are — of course — only triggered if you've downed a duck. 
It has the effect of creating border flashes very quickly in 
random colours, before reverting to white. The delay caused 
by this flash is very short, and gives good visual feedback, to 
back up the feedback from the sound to tell you that you've 
bagged another duck 


The next version of DUCK SHOOT we'll look at is, as vou 
considerabaly different from the ones we've been 
ing to date. At the very least, line 40 now looks 
extremely strange. This line is where a user-defined graphic 
(which, believe it or not, does look like a duck when the 
program is running) takes the place of the randomly-chosen 
letters. No matter how hard you look, you will not find 
anything that looks like that little duck on the keyboard. So 
where has it come from? 


1@ REM DUCK SHOOT 
TDI" POKES 
KES, 27 
PRODEDEDERDEDERDRRBBI" GOSUEL 


15 POKES6879, 25: POKES6869, 255 
28 LET SCO=0:PRINT"SH" ; :POKE650, 255 
22 VIF15:V2=15'S1=0:S2=8:S3=0:$4=9: DU 
21 

25 FORG=17020: $2=G+29@: GOSUBSA9 :NEXT 


6 

3@ LET SHOTS=15 

35 S2=0:FOR G=S@TO2QSTEP-2 :$3=: 
OSUB9@O : NEXTG:S3=8 

40 LET A$="G0@ G0 G0 22 ace ane" 
5@ LET ACROSS=10 


28+6°S 
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68 LET DOWN=15 

78 POKE646, INTCRND(1)#6+2) : PRINTLEFTS 
(¥$,8) | AS S2=25A-SHOTS : GOSUBION : S2=O 

980 POKE646,2:PRINTLEFTS$(V$, DOWN); LEFT 

$CX$,ACROSS-1)5 "9 X ":GETKS:S3=180+AC 

ROSS : GOSUB9008 

82 S3=0 

98 IFK$O"M"THENIG@ 

95 S3=150+SHOTS#S : GOSUB90Q0 : $3=0 : SHOT 

S=SHOTS~1 : IFMID$<A$, ACROSS, "THEN 
198 

97 SCO=SCO+5? :AS=LEFTS<A$, ACROSS-1)+" 
"+MIDS(AS,ACROSS+1 ) :S$3=288-SHOTS GOS 

UB9906 :S3=@ 

98 POKE36879, PEEK(36879AND246ORRND¢ 1 
#8 : POKE36879, PEEK (36879) AND2480RRND ¢ 
148 

99 POKE36879, PEEK(36879 )AND24BORRND (1 
#8: POKE36879, PEEK(36879)AND2480R1, 
188 PRINT "3@SCORE :" SCO; TABC12) "SHOTS 
“SHOTS; " " 

185 PRINTTABC12>"SLEFT" 

118 IFSHOTSCLTHENPRINTLEFTS(¥S, 1135 "T 

HAT’S THE END OF THE GAME” : POKES6869. 
240:STOP 

128 ACROSS=ACROSS+<K$="2")—C(K$="C") 
13 AS=MIDSCA$, 2>+LEFTSCAS, 1) 

140 GOTO 70 

158 FORA=@T07 

160 READE 

178 POKE7168+A. B 

190 NEXTA:FORA=7424T07431 : POKER, @:NEX 

TA 

19@ RETURN 

208 DATAG, 4,73,222,62,8,0,8 
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8999 REM SOUND ROUTINE 

9028 POKE36678, PEEK (36878 AND240 
9085 POKE36874 $1 : POKE36875, S2'POKE36 
876, $3: POKE6977, 34 

9819 Dy=<v2-¥1)/DU 

9015 FORI=2TODU 

9028 V1=V1+DV: POKE36978,, PEEK(36878 AN 
1249 OR V1 

9838 NEXTI : POKE36876, PEEK(36878>AND24 
a 

9048 POKE36974, @: POKE36875, 0: POKE3687 
6, 0: POKE36977,2 

925@ RETURN 


The duck has been ‘user-defined’, User-defined graphics 
are one of the really great features of your computer. 


The routine from line 158 onwards reads in the data for 
the UDG (user-defined graphic) for the duck. This replaces 
the “@" sign. Details of this will be explained in chapter 
fourteen. 


Note by the way, that there is a change to the end of line 
70 in this version of the program with the user-defined 
duck. Try working out a duck-shape of your own, on a 
grid you have drawn up yourself, and enter the required 
numbers in line 260. 


The final version of this program we will discuss has three 
rows of flying ducks. It is best to aim at the middle row of 
ducks (which fly more quickly than the bottom row) 
because they are worth 517 points, as opposed to the 57 
that each of the ducks on the bottom row is worth. The 
top row of ducks is just there to confuse you. They 
disappear automatically as the ducks in the middle row are 
shot, but cannot be shot directly, and do not contribute to 
your score. 
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The middle row of ducks is held in the string BS which is set 


equal to AS in line 4S, as you can see in the listing: 


1@ REM DUCK SHOOT 

Li 1S="OOOINERIIMEnORMMEE" POKES 
5, 255: POKES6,27 

(2 XS="ORRPRERREDSERERESERRRI GOOSUE! 


se 

15 POKE36879. 25: POKE36869, 255 

2@ LET SCO=@:PRINT“<38" ; :POKE6S@,255 
2 V1=15:¥2=15:$1=0:S2=0:S3=8:S4=9:DU 


z FORG=1T02 : $2=6+280 : GOSUB9O00 : NEXT 


32 LET SHOTS=15 

35 S220: FOR GeS@TOZOSTEP~2:S3=200+6:G 
QSUB9800 : NEXTG S3=@ 

40 LET A$="ae@ G2 G2 G2 G@0 ean * 
45 LET Bs=As 

5@ LET ACROSS=10 

68 LET DOWN=15 

7@ POKE646, INTCRND(1)#6+2) :PRINTLEFTS 
(¥$,8) | RS: S22259-SHOTS : GOSUB9IORA : S2=0 
75 PRINTLEFTS(Y$, 6); BS:LEFTS(YS,5)iMI 
DSCBS, 3) |LEFTSCBS,2) 

80 POKE646, 2'PRINTLEFTS('Y$, DOWN); LEFT 
$(X$,ACROSS-12; "SX "°GETKS:S3=160+AC 
ROSS : GOSUB9EG8 

82 $3=0 

98 IFKSO"M" THENIG@ 

92 $3=158+SHOTS#3 : GOSUB9EQ0 : S3=0 : SHOT 
S=SHOTS~1: IFMIDSCAS, ACROSS, 1) THEN 
10@ 

94 SCO=SC0+57: ASSLEFTSCAS, ACROSS-1)+" 
"+MIDSCAS, ACROSS+1 > :GOTOS7 
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95 IFMID$CB$,ACROSS: 1)="_"THEN1@9 

96 SCO=SCO+517 : BS=LEFTS(BS, ACROSS-1)+ 
" “4+MIDS$CBS,ACROSS+1> 

97 S3=200-SHOTS : GOSUB9000 : S3=0 

98 POKE36879, PEEK (36879 AND2480RRND¢ 1 

#8: POKE36879, PEEK(36879 )AND2480RRNDC 
1)#8 

99 POKE36879, PEEK (36879AND243ORRND(1 
#8: POKE36879, PEEK( 36879 AND2480R1 
108 PRINT"MSSCORE :" SCO; TAB(12) "SHOTS: 
"; SHOTS, 
105 PRINTTABC12)"SLEFT” 

110 IFSHOTSCLTHENPRINTLEFTS¢¥$, 11)5"T 

HAT’S THE END OF THE GAME" :POKE36869, 

248: STOP 

128 ACROSS=ACROSS+(K$="Z"AND ACROSS? 1 

>-<K$="C"AND ACROSS<21) 

13@ AS=MIDSCAS,2)+LEFTS(AS, 1) 

135 BS=MID$CB$,3)+LEFTSCAS, 2) 

148 GOTO 72 

15@ FORA=8T07 

168 READB 

178 POKE7168+A.B 

18@ NEXTA:FORA=7424707431 : POKER, @: NEX 

TA 

198 RETURN 

208 DATA, 4,73, 222.62,8,0,8 

8999 REM SOUND ROUTINE 

9982 POKE36S78, PEEK(36878)AND243 

9905 POKE36874, Si :POKE36875, S2:POKE36 

876, $3:PQKE36877,S4 

9812 DY=(V2-¥1)/DU 

9015 FORI=2TODU 

9020 Vi=¥1+DV: POKE36878, PEEK<36878)AN 

D24@ OR V1 
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9038 NEXTI : POKE36878. PEEK‘ 36878 )AND2S- 
a 

9048 POKE36874,@:POKE36875, 9: POKE3687 
€,0:PQKE36977,8 

9858 RETURN 


The middle row of ducks is shot at in line 96. If you shoot a 
duck in the bottom row, your shot ends there. After all, you 
cannot expect it to continue on to get a duck from the middle 
row as well. The GOTO 100 at the end of line 94 ensures that 
this does not happen, 


Line 135 moves the middle and top rows of ducks, changing 
the elements in the string by an extra element compared to 
the changes occuring in line 138. Line 7@ prints all three rows 
of ducks, ‘inventing’ the top (dummy) row by printing BS 
out of register, so the ducks there appear ahead of, although 
flying in a synchronisation with, those in the middle row. 
this will be clear when you run the program. 


That brings us to the end of this series of DUCK SHOOT 
games. There are four things you can do to further develop 
the program: 


—  Cutthenumber of shotsavailabledown tomake 
it morechallenging. 

— _User-define the man, so it is not just an “X"". 

—  Adda“high score” feature, sothe game will 
restart, preservinga high score you can try and 
better. 

— _ Allowthe computer todetect when all the ASand 
BS ducks have been shot (that will happen when 
ASand BS are just 32 spaces long, and contain 
nothing but spaces)and add a bonus tothe score 
if this occurs before all the shots have been fired. 
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An array is used when you want to create a list of items, and 
refer to the item by mentioning just which position in the list it 
‘occupies. You set up an array by using the DIM command. If 
you type in DIM A(5), the computer will set up a list in its 
memory called A, and will save space for five items: A(1), AQ), 
AG), A(4) and A(S). These, by the way, are called elemenis of 
the array. 


‘When you dimension, or set up, an array, the computer creates 
the list in its memory, and then fills every item in that list with a 
zero. So, if you said to the computer, PRINT A(1) or PRINT 
A(4)it would come back with 8, You fill items in an array with 
LET (such as LET A(2)= 1008) or using READ and DATA as 
we saw in chapter eleven. Once you've filled a position in the 
list, whether you filled it with LET or READ, you can get the 
computer 10 give you the contents of that element of the array, 
by simply saying PRINT A(2). 


The next program dimensions (this, as we said, simply means 
Sets up, oF creates) an array called A, with room for fifteen 
elements. The B loop from lines 30 to 50 fills the array with 
random digits between zero and nine, and then prints them 
back for you with the loop from lines 78 to 98. 


1@ REM ARRAYS 

28 DIM ACLS) 

3@ FOR Bel TO 15 

48 ACB)=INTCRNDC1#9) 
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S@ NEXT B 

@0 FOR Z=1 79 15 

78 PRINT*AC"}Zi") 18"sRCZ> 
88 FOR I=1 TO 10@:HEAT 7 


This is called a one-dimensional array, because a single digit 
follows the letter which “labels” the array. You can also have 
mutti-dimensional arrays, in which more than one number 
follows the array label after DIM. In the next program, for 
example, the computer sets up a two-dimensional array called 
A, consisting of four elements by four elements (that is, it is 
dimensioned by DIM A(4,4) as you can see in line 28): 


1@ REM MULTI-D ARRAYS 
28 DIM AC4,4) 


38 FOR TO 4 

48 FOR To 4 

58 ACB,C)=INTCRNDCL9#9) 
6@ NEXT C 


wees 3 8 
wee?rs 7 
MMe 322 
mgs58 7 
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You specify the element of a two-dimensional array by 
referring to both its numbers, so the first element of this array 
(the number 7 in the top left hand corner of the printout above) 
can be referred to as A(i,1). The @at the end of theline is A(1,4) 
and the 8 on the bottom row is A(4,3). 

‘Your computer also supports string arrays. Enter and run this 
routine to see a string array in operation: 


1@ REM STRING ARRAYS 

20 DIM ASCS) 

3@ FOR Bel TO 5 

4@ LET ASCB)=CHRSCINTCRND(1#26+65)) 
5@ NEXT B 

6@ FOR Bet TO 5 

78 PRINT "ASC"3Bi"> IS "5RECBY 

8@ NEXT B 


If you refer to an array that has not been dimensioned 
beforehand, the computer automatically dimensions one with 
eleven elements (@ to 10). You will get an ertor message if you 
refer to an clement outside the arrays range. Notice also that 
you cannot redimension an array with the same name. To do 
this you must clear all the variables first with the command 
CLR. Beware though, this command will make your VIC 
forget all the variables in its memory (incidentally. so does 
RUN). 


1@ REM STRING ARRAYS II 

2@ DIM AS(S> 

30 FOR B=1 105 

48 READ ASB) 

‘SQ NEXT B 

68 PRINT ASCINTCRND(1)85+1)) 

78 GOTO 60 

108 DATANI THERE, I°M CALLED VIC 
11@ DATAHERE’S LOOKING AT YOU KID 
12 DATAHELP. FAR OUT MAN! 
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FAR OUT MAN! 

HELP 

HELP 

HELP 

HERE’S LOOKING AT YOU KID 
HELP 

HI THERE 

HERE’S LOOKING AT YOU KID 
HI THERE 

HERE’S LOOKING AT YOU KID 
FRR OUT MAN! 

HI THERE 

1°M CALLED VIC 

FAR OUT MAN! 

FAR OUT MAN! 

FAR OUT MAN! 

I’M CALLED VIC 


ESCAPING FROM MURKY MARSH 

‘This program demonstrates the use of a two-dimensional array 
for ‘‘holding” an object and for printing it out. The object in 
this case is a miniature dragon, who is trying to escape from 
Murky Marsh, indicated in this program by a square of 
brightly-coloured dots. Our dragon is very stupid, and moves 
totally at random within the marsh. He is free if he manages to 
‘stumble onto the outer right or bottom two rows. 


The dragon in this program demonstrates Brownian motion, 
the random movement shown by such things as tiny particles in 
adrop of water viewed under a microscope, or of a single atom 
ina closed container. Brownian motion explains why a drop of 
ink gradually mixes in with the water into which it has been 
placed. 


Here is the program listing: 
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10 REM DRAGON’S LAIR 

15 POKES6, 27 :POKESS, 255 

20 DIMAC12, 18) :M=8 

38 GOSUBSOa 

48 X=INTCRND¢ 1 #2) 

SQ IFX=@THENP=P+1 

68 [FX=1THENP=P-1 

7@ X=INTCRNDC1 #2) 

88 IFX=OTHENQ=Q+1 

90 IFX=1THENQ=0-1 

108 IFQ<LTHENQ=Q+1 

11@ IFPC1THENP=P+1 

128 M=M+1 

130 PRINT" S3Q@RBRIAATTENPT #° 511 
428 FORX=1T010 

430 FORY=1T012 

432 GR=1:CO=9 

435 IFK=QANDY=PTHENGR=2 :CO=2 
448 POKES8470+#22+x, CO 

445 POKE77Sa+ve22+x, GR 

459 NEXT 0X 

488 ACP,Q)=0 

49 IFQ>BIRP>STHENEAO 

495 GOTO 40 

58@ QSINTCRNDC1 #3) +4 

S@5 P=INTCRND(1#3)+4 

51@ POKE36869, 255 

520 FOR1=7168T07183 : READA 
998 POKET, X:HEXTI 

56 POKE36879,26:PRINT"" 
588 RETURN 

598 DATASS, 78, 76,95, 255,223, 18.51 
595 DATR,8,8,20,38,20,0,0 
688 POKE36969, 240 

618 PRINT" OSSPREHEN. .HOME AT LAST” 
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DAVY JONES’ LOCKER 


You can relax now with our next game — FULL FATHOM 
FIFTY — which uses two arrays (B and D) to store the player's 
scores and dice rolls respectively. It is a simple game. You and 
the computer are in a race to roll a total of $8 or more. You roll 
two dice at once, but the only time you score and get the total of 
the dice roll added to your accumulating total, is when both 
dice come up with the same number. 


You should know enough about how programs work at this 
stage to be able to determine what each section does, so we will 
not explain this relatively simple program. Get it up and 
running, and then decide for yourself how each section works. 
You'll possibly then decide for yourself how each section 
works. You'll possibly gain more from the program by working, 
it out yourself rather than having it explained in detail by us. 


Here is the program listing for Full Fathom Fifty: 


5 POKE36878, 18 

1@ REM FULL FATHOM FIFTY 

15 POKE 36879, 25:FRINT"I" 

20 DIM BC2>:DIM D¢2):RO=1 

25 Ag=" ? 
38 FOR Asi To 2 

40 PRINT" SRROSBREFLLL FATHOM FIFTY" 


Pp 


2 PRINT" MIUBEBSBRSHL Ana" }3CZ) 
SS POKE 36879, 25+INT(RND<( 187) 


BC1)343 OR BCZI94S OR BCZ)? 
HEN GOTO 238 

78 IF Az 
“LL NOW ROLL THE 5 
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fy PRINT": TTT, PRESS “RY T 
O ROL 


THEN 32 


1 TO 40 


36576) 200:F' 
36874,0:POKE 36875,0:P 


97 NEXT TPC 
OKE 96876.9 
g8 FOR I=1 70 1:6070 65 
9@ FORJ=20@ TO 250:POKE 36875. J:POKE 
36876, J:NEXT J:POKE 36875, @:FOKE 3687 
6.0 
100 PRINT" SRORORROMMONOD | AS 
110 FOR C=1 70 2 
128 PRINT" OOOO ROLLING 
DIE #50 
138 FOR M=24@ TO 150 STEP-.5:POKE 268 
AT M:POKE 36876,2 

TNT RAD CL R6D +1 

17 CAME 


160 FOR 6-200 To 250 STEF.4:POKE 9697 
GPOKE 26874.0 
os PRINT RROROO MENTO RE 

c 


+1°FGR G=1 TO SO:POKE 36873, 


(CHAPTER THIRTEEN 145 


HUMAH 
250 IF B&L>BK2> 
vic" 


4 PRINT'H iis 


CHAPTER FOURTEEN 
LET THE GOOD 
GRAPHICS ROLL 


As well as the graphics available to you from the keyboard, the 
VIC allows you to define your own characters. 


If you missed out the section on binary in chapter twelve, now 
might be a good time to go back and read it, All the characters 
‘on your VIC are made up of 64 dots, arranged in 8 rows of 8 
dots. Can you see the relation between this and the binary 
system? Because each row is made up of 8 dots which can be 
either on or off, a row can be represented by an 8 bit number 
where each bit can be either | or @. Because an 8 bit number isa 
byte, and there are 8 rows of dots in a character, 8 bytes are 
required to define a character. If we imagine an 8by 8grid, with 
each row corresponding to a byte. Every space in the grid is 
represented by a @ in the binary number, and every filled in 
block is represented by a1. We can then change the resulting 8 
binary numbers into decimal as was shown in chapter twelve. 
Example, the letter “tA” 


CHARACTER BINARY DECIMAL 
---tt--- 00011000 24 
--*--*-- 00100100 36 
-t----4- 01000610 66 
-*teeee @1111i10 126 
-ta---4- 01000010 66 

. . 81900610 66 
- hanna te 61000010 66 


- eo eee 00000000 0 
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Can you see the correspondence? Your VIC has all its 
characters stored in memory in this way, 8 bytes per character. 
‘They are stored in ROM (So you can’t alter them) starting at 
location 32768. The data for the letter “A” starts at location 
32776. Use the PEEK function to see if the numbers are what 
they should be. 


If the characters are in ROM, how then are we going to change 
them or add our own? As was mentioned in chapter twelve, 
one of the registers of the VIC chip allows us to tell the 
computer where to get the data for the characters. By POKEing 
this register we can make it think the character data isin an area 
‘of RAM (which we can alter) where we have designed our own 
characters. 


When we do this, we must store our character data at the top of 
RAM (with a large address) which is above our program. We 
must be careful not to POKE into the RAM that holds our 
program or variables. To this end we make the VIC think that it 
has less memory than it does. By lowering the top of user 
memory (as the RAM where your program is stored is called) 
we can put our graphic data above this, and it will not be 
touched by the program. 


Register 5 of the VIC chip (location 36869) normally holds 240, 
which makes the VIC get its character data from the ROM. 
When we design our own characters, they are normally stored 
at location 7168 onwards. Therefore, we have to make the VIC 
think that the top of memory is location 7167. To do this, we 
carry out the following POKEs: 


POKE 55,255:POKE 56,27 


We usually store the data for our characters in DATA 
statements, which are then READ and POKEd into memory. 
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Itis usually a good idea to design a space so that the screen does 
not become a mess. For a space, all you have to do is POKE 
locations 7424-7431 with zeros. This is demonstrated by the 
next program, which designs and animates a space invader. 


9 REM FRED THE INVADER 
IKE 5S.255:PGKE S€,27 


28 GOSUB 1600 

29 REM SET UP VIC CHIP FOR UDG 

38 POKE 36369,255:PRINT"2" 

39 REM BLACK BACKGROUND AND BORDER 
48 POKE 36879.8 

49 REM GREEN INVADER 

5@ XeL1:¥=1 1: DX=INTCRNDC 1943-1) DYSIN 
TCRNDC1 243-1) 

59 REM PRINT 

68 PRINT LEFTSCH'$,¥)5LEFTS CXS, ND 5 "HB" 
69 REM PAUSE 

7@ FOR 1=1 TO 5d:NEXT I 

79 REM RUBOUT 

BQ PRINT LEFTS(4'S, ¥);LEFTS(X$)X)5" " 
9@ IF RND<1)>@.8 THEN DX=INTCRNDC 1283 


188 & 


Dy 
XB OR 2021 THEN DX: 
OR ¥222 THEN Dy 


1220 NEXT I:RETURN 
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1030 DATA 56.124,214,214, 124,56,84,14 
6 


If we start our characters at location 7168, when we use reverse 
mode, instead of user defined graphics, you get the normal 
graphics — but not in reverse mode, in normal mode. In this 
way you can mix normal and user defined graphics. This is 
shown in the next program, which prints up a score while the 
space invader moves around. 


9 REM FRED THE INVADER 

10 POKE 55,255:POKE 56,27 
15 
17 X$="TORORPEPDEDORRERDDEED 

2@ GOSUB 1020 

29 REM SET UP VIC CHIP FOR UDG 

30 POKE 36869,255:PRINT "@SSCORE: 03 
908" 

35 PRINT "OOOOGA HI THERE!" 
INT "I’M FRED THE INVADER" 

39 REM BLACK BACKGROUND AND BORDER 

48 i} 

43 INVADER 

58 A:DMEINT(RND( 1943-1) DY=IN 
TORND CLD RS-1) 

59 REM PRINT 

60 PRINT LEFT#CYS, 
69 REM PR 


PR 
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999 REM USER DEFINED CHARACTERS 
1008 FOR I=7424 TO 7431:POKE 1,0:NEXT 


1 
1818 FOR 1=71€3 TO 7175:READ A:FO 


1928 NEXT I:RETURN 
1030 DATA 56, 124,214,214, 124,56,84,14 
6 


Another way of doing this would be to PEEK the characters 
you wanted from the ROM and POKE them into RAM 
together with your own. The next program prints messages in 
reverse text (which you can’t get with the above method) 
together with the space invader. The above method should be 
used if possible, because this method wastes valuable memory 


which could be used for more of your own graphics. 


9 REM FRED THE INVADER 
1@ POKE 55.255:POKE 56,27 


29 REN SET UP VIC CHIP FOR UDG 
3@ POKE 36869,255:PRINT "DSSCOREM: 03 


HI THERE": PRIN 
DER” 
GUND PND BORDER 


42 POKE 36879.8 
EM GREEN INVADER 
{DKS INTCRHDCL>#3-1) ‘DY=IN 


ee PRINT LEFTS(YS, 7); LEFTS(X$,X) 
69 REN PAUSE 
7@ FOR I=i TO S@:NEAT I 
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79 REM RUBOUT 

8G PRINT LEFTSCV$, VOjLEFTS¢R$, X05" " 

99 IF RNDC1)30.8 THEN DX=INTCRND( L943. 
=1) :DY=INTCRNDC1)#3~1) 

180 X=K+DX: Yov+DY 

11@ IF X€@ OR X32i THEN DX=-Dx 
12@ IF YC1 OR YD22 THEN DY: # 
138 GOTO 6a 

999 REM USER DEFINED CHARACTERS 

1008 FOR I=7424 TO 7431:POKE 1,8 NEXT 


1 

1019 FOR I=7168 TO 7175:READ A:POKE I 
A 

1029 NEXT I 

1@3@ DATA 56, 124.214,214,124,56,84,14 
6 


1639 REM READ DOWN REVERSE ALPHABET 
1040 FOR I=@ TO 2@7:REM 26 LETTERS Ti 
MES @ BYTES 

1056 POKE 7176+1,PEEK(33802+1) :NEXT I 
1268 RETURN 


MULTI COLOUR MODE 


Wouldn't it be nice if you could get more than one colour in a 
character square? Well you can (that’s why we've got the 
heading), in fact you can have three colours not counting the 
background. These colours are as follows: 


Background 
Border 
Auxiliary 
Foreground 


‘The background colour is the same as normal. 
‘The border colour is the same as normal. 


‘The auxiliary colour can be one of sixteen (numbered 0-15) 
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and is set by: 


POKE 36878, PEEK(36878) AND 15 OR (N*16) where n is 
the number of the colour. 


‘The foreground colour can be one of cight as normal, but 8 is 
added to the number when it is POKED to colour memory or 
location 646 (the current colour indicator). Adding § lets the 
computer know that we want the character to be in multi colour 
mode. 


Because there are four different colour combinations, we can 
represcat this with two bits (counting between @ and 3). If we 
now have two bits per dot in a row, we can only have four dots 
ina row. Therefore multi coloured characters are composed of 
four dots across by eight down. The eight bits of each byte are 
split into four pairs, and each pair is interpreted as follows: 


0 — the dot is printed in the background colour. 
1 — the dot is printed in the border colour. 
18 — the dot is printed in the foreground colour. 
11 — the dot is printed in the auxiliary colour. 
Multi colour and normal modes can be mixed as this next 
program shows: 


1@ REM MULTI-COLOUR 

15 POKES6, 27: POKESS, 255 
20 GOSUB1E00 

25 PRINT" TODD 
59 FOR C=8TO1S 

55 POKE646.C0 

60 PRINT" SAMORRRRRERIEA EC HEBERTEFS" 
65 FORN=OT015 

78 POKES6978, PEEK (36878ANDISOR<H#16> 
75 FORI=1T050:NEXTI 

30 NEXTN 

85 NEXTC:GOTOSA 

1988 FORI=7424T07431 :POKEI,2:NEX 


MPRISTHERE!" 
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FORI=7168T07231 :READA 

POKEI . ‘NEXT 

POKES6869, 255 : POKES6879, 26 
POKE36878, PEEK(36878 ANDISOR(7#16) 
RETURN 

DATAQ, 160, 164, 165, 165, 165, 170,170 
DATAQ, 18, 10,18, 18. 18,178,178 

9019 DATA, 0,64, 89.80, 80,82,30 

9915 DATAQ, 160, 164,244, 252,08, 160, 164 
9828 DATAI7S, 167, 165. 165, 165,245,253,255 
2625 DATAZS®,250,25, 18,10) 15.15.15 
9832 DATASA, 88,68, 90,988,829, 208,240 

9035 DATALES, 165,165, 165, 165,245, 253,255 


Remember the space invader? If we want to make him appear a 
bit more lively, we could make his legs move as he went about 
the screen, There are two ways of doing this, the first is to 
define two graphics corresponding to the two positions of the 
invader’s legs, and print them alternately: 


10 POKES6, 27 :POKESS, 255 

20 GOSUB 1089 

3 PRINT*3)" 

48 X=0:Y=1:GR=@:CO=5:D=1 

58 POKE 7680+7#22+x, 32 

68 X=X+D 

78 IFX=@ ORX=21 THEND=-D:Y="+1 
82 IF 220 THENS@ 

98 POKE 38400+1#22+x, C0 

120 POKE 768047#22+x, GR 

119 FORI=1T0200:NEXTI 

128 GR=1~GR 

138 GOTOSE 

1988 FORI=7424707431 :POKEL,@:NEXTI 
181@ FORI=7168T07183:RERDA 
1420 POKEI,A:NEXTI 
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1038 POKE36879, 8 ‘POKE36869, 255 

104@ RETURN 

9800 DATA34, 68, 124,84, 124,56.68, 138 
9810 DATAIS6, 68, 124,84, 124,56,68,48 


The second way would be to redefine the actual character itself, 
without having to reprint it: 


1@ POKES6, 27 :POKESS, 255 

28 GOSUB 1920 

3@ PRINT*=" 

49 X=: VoL: GR=@ C025: Det 

5@ POKE 7680+V#22+x,32 

68 X=X+D 

7@ IFX=0 ORX=21THEND=-D:Y=¥+1 

88 IF 220 THEN® 

9@ POKE 38400+#22+x,00 

109 POKE 7680+7#22+K. GR 

11 FORI=1T0209: NEXTI 

120 IFPEEK(7168)=34THENI4@ 

138 POKE7168,34:POKE?7175, 138: GOTO158 
140 POKE7168, 136: POKE7175,40 

158 GOTOS@ 

1000 FORI=7424707431 :POKEI,@:NEXTI 
1919 FORI=7168T07175:READA 

1928 POKEI,A:NEXTI 

193@ POKE36879, 8: POKES6969, 255 
1848 RETURN 

9089 DATA34, 68. 124,84, 124.56, 68,130 


HIGH RESOLUTION GRAPHICS 

High resolution graphics is the term used to describe the ability 
to switch on or off any dot on the screen. This takes a lot of 
memory, and since the unexpanded VIC doesn’t have all that 
much to start with, we can only usea small screen. What we are 
going to do is termed ‘bit-mapping’ because each dot on the 
screen corresponds to a bit in memory. 
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What we must do is fill the entire screen with user defined 
graphics, each one different from the last. These are all initially 
defined as spaces (filled with zeros) so that the screen appears 
empty. When we want to plot a point (or pixel) on the screen, 
we work out which user defined graphic has to be altered and 
then set the required bit in the graphic to a 1. This instantly 
lights up the dot on the screen. The formula for calculating the 
user defined graphic to be altered is: 


GR = INT(X/8) + INT(Y/8)*8 


Where X is the horizontal coordinate (@ at the left to 63 at the 
right) and Y is the vertical coordinate (@ at the top to 63 at the 
bottom). The formula for calculating the correct row in the 
user defined graphic data is: 


RO=8*(¥/8—INT(Y/8)) 


‘The location in memory which has to be POKEd is then: 
LO=7168+GR*8+RO 


‘The decimal value which will be ORed with the correct byte is 
calculated by: 


DV =2{(7 = (X = INT(X/8)*8)) 
Thus a program to plot a parabola might look like this: 


10 REM PARABOLA 

20 REM INITIALISE DISPLAY 

3@ POKES, 27: POKESS, 255 

48 PRINT"<}" :POKE36879:8 

58 FORI=8T063 

60 POKE7680+1, 1:POKE38400+1.1 

78 NEXTI 

78 REM SHRINK SCREEN 

79 REM HORIZONTALLY 

82 POKE 36866, PEEK(36866AND12S0R8 
98 POKE 36964, PEEK(36864AND1280R25 
99 REM VERTICALLY 
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108 POKE 36967, PEEK(36867AND1290Ri6 
110 POKE 36865,65 

119 REM CLEAR UDGS 

12 FORT=7168T07" 
129 REM UDG MODE 
132 POKES6869, 255 

199 REM PLOT PARABOLA 

208 FORX1=-31T031 

218 V1=K112 

219 REM SCALE VALUES 

220 K=ki+31 

230 Ya¥1/16 

248 GOSUB 19800 

25@ NEXTRL 

259 REM LOOP 

268 GOTO 260 

9999 REM HIRES PLOT 

19820 IFXCAORKD6SORYCBORY>63THENRETURN 
10005 Y=INT(63-9+,5):KSINTCRE, SD 

10018 GR=INTCX/8>+INTCY/8 HB 

10028 RO=98(Y/8-INTC¥/8)) 

18830 LO=7168+GR¥B+RO 

18849 DV=27(7~(X-INTCX/8)48)) 

19852 POKELO, PEEK(LODOR DY 

10868 RETURN 


POKEL.Q@‘NEXTI 


Notice how in lines 220 and 230. the X and Y coordinates are 
scaled before the subroutine is called. The coordinates are 
rounded in line 16005. Also notice the last line, which makes 
the computer go round and round forever, known as an 

“infinite loop"”. You can, of course, use the plotting routine 
from line 9999 onwards in your own programs (you must 
remember to include theinitialisation from lines 20to 136). The 
next program demonstrates the use of sines and cosines to plot 
ovals and circles. 
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18 REM OVALS 

2@ REM INITIALISE DISPLAY 

3@ POKES6, 27 :POKESS, 255, 

4@ PRINT"®Y" :POKE36879,8 

58 FORI=9T063, 

68 POKE7680+1 1: POKE38400+1,1 

7@ NEXTI 

78 REM SHRINK SCREEN 

79 REM HORIZONTALLY 

8@ POKE 36866, PEEK(36866>AND1280R8 
98 POKE 36864, PEEK( 36864 >AND12B0R25 
99 REM VERTICALLY 

188 POKE 36867. PEEK‘26867)ANDIZ90R16 
11@ POKE 36865,65 

119 REM CLEAR UDGS 

12 FORI=7168T07679: POKEI,@:NEXTI 
129 REM UDG MODE 

130 POKE36869, 255 

199 REM PLOT OVALS 

200 FORA=1TOLOSSTEP.3 

218 BemkR/S0 

220 C=31#C0S(B)+31 

230 D=31¥SIN(B)+31 

‘GOSUB19003 

GOSUB192a9 

268 X=C*YeDv2:GOSUB1a90a 

278 X=C/2:¥=D/2:GOSUB1G900 

289 NEXTA 

298 GOTOZ9A 

9999 REM HIRES PLOT 

10888 [FXCQORK>ESORYCAORY>E3THENRE TURN 
12005 YSINT (63-14. 5):X=INTCX+, 5) 
18Q18 GR=INTCR/S)+INTCY/8) 8B 


158 GETTING STARTED ON YOUR VIC 20 


10@20 RO=88(¥/8-INTCY/S)> 
10830 LO=7168+GR#8+RO 

10049 DY¥=21(7~CX-INTCX/8 HS) ) 
10@5@ POKELO,PEEK<LOD0R DY 
10068 RETURN 


CHAPTER FIFTEEN 
MORE GREAT GAMES 


Inthis final chapter, we'll be giving you the listings of a number 
of major programs. The notes on these will not be as extensive 
as you’ ve had with some programs, but the introductions tothe 
programs will highlight some of the more interesting 
programming techniques used. Examination of the listings will 
give you a number of ideas you can apply to your own 
programs, 


BAGATELLE 

This is a simplified pinball machine, in which you and the 
computer take it in turns to roll diamond-shaped balls down a 
frame which contains a series of numbers and letters. Your 
score tends to increase each time you hit an obstacle on the way 
down the frame, and the ball will bounce off the obstacle, 
increasing your chances of hitting more obstacles. Hitting the 
sides of the frame, or bouncing around on the bottom, can cost 
you small penalties. In general, though, each time the ball hits 
something you'll hear it do so, and have the satisfaction of 
seeing your score increase. 


You start your ball rolling down the frame from any one of 
those. You and the computer have five balls each to roll down 
the bagatelle frame, and you take it in turns to do so. You have 
the first roll, Then the computer will tell you which ball it 
intends to roll down the frame, and then roll this ball 
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‘The most noteworthy part of this program is the DEF FN 
command, which is used in lines 160, 180 and 260. Each time 
the program reaches the function FN SC(X) the computer 
calculates the formula in the DEF FN statement, replacing any 
‘occurrences of the letter in brackets in the definition with the 
letter in brackets in the call. Thus if we define a function named 
SC to find out what is on the screen: 


DEF FN SC(A) = PEEK(7686+ Y*22 + A) 
and we then call it with the statement: 
PRINT FN SC(X) 


This has the same effect as if we had typed: 
PRINT PEEK(7680 + Y*22 + X) 


‘The advantage of defining the function is that it saves typing 
and memory if you will be using that formula a few times. 
Notice that you cannot use words such as LET and PRINT etc., 
in the definition, only things which return a value. Functions 
‘must be named with one or two characters, the first must be a 
letter and the second can be a letter or number. 


In each case in this program, it is checking around the current 
position of the ball, to see if it is about to strike something. If it 
finds anything except a space, the score is incremented by the 
screen code (different from the ASC code), minus 48, You'll 
see why, if you look up the code of the "/”” which is used for the 
walls, and the code of “1”. Good rolling. 


‘And this is the listing: 
1@ REM BAGATELLE 
15 DEF FN SCCR 
£26878, 15 

17 PSH" ALATA 


EEK (7688+Y#22+A) :POK 


28 GOSUB 1982 


(CHAPTER FIFTEEN 
3@ GOSUB 520 

Te 5 

TO 2:PRINTLEFTS¢¥$,2);LEFTS 


(X$,19954E 

‘5@ PRINTLEFTSCY$,23>; 

55 IFX=2 THENPRINTY1;"ME "; 
56 IFX=1 THENPRINTY1; "YOU"; 
‘S7 PRINTLEFTSCY$, 213; 

68 IFX=2THEN7@ 

65 PRINT"WHICH NUMBER TO START": INPUT 
"WITH" 5K: IFKC1 OR KDSTHENES: 

67 GOTO 8a 

7@ K=INTCRND(1)#9+1) 

75 PRINTLEFTS(¥$,21)5 "MT WILL START Wi 
TTHMae 

7? FORE=1T01@@ : POKE36876, 200-E/2: :NEX 
TE: POKE36876.2 

8@ PRINTLEFTS¢Y$, 1);LEFTS¢X$, 3+K); "a" 
ik: FORE=288T025 

82 POKE36876, E :NEXTE : POKE36876.9:PRIN 
TLEFTSCY$, 1); LEFTS(X$, 3+K) 5 "Hig" 5K 

98 BA=K+3:EAB=BR 

180 BD=1-EDB=i 

118 IAe1 

120 ID=1 

13@ PRINTLEFTS(Y$,EDB+1) ;LEFTS(X$.ERB 
25" "[EAB=BA 

142 EDB=BD 

15@ PRINTLEFTS(Y$, BD+1) ;LEFT: 


$, BAD; 


169 FLAG=0-Y=BD+1:A=FN SCCBR? 
178 IFRQD32 THENFLAG=1 :GOTO220 


200 R=FN SC(BA-1> 


161 
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218 IFACD32_THENFLAG=1 
220 IFFLAG=@THEN225: 
21 POKE36876, 138: 1F RND(1>>.3 THEN22 


3 

222 IA=-IA: ID=-1D:POKE36876, 150+2#IA+ 
3#ID 

223 POKE36876, 8: IFAC27THENA=R+64 

224 COX=CCKI+A-48 

225 PRINTLEFTS(V$, 6) 5LEFTS(X$, 18) ;CC1 
Ds LEFTSCY$, 8) ;LEFTS(X$, 18) 5062) 

230 BD=BD+(ID¥RND(122+2.75 

235 IF BAC3 THENIAS=- IA: BASS 

236 IF BDC THENID=-ID:BD=3 

237 IF BADISTHENIA=-IA:BAS13 

240 
250 IF BDC19 THENI3@ 

262 FORG=128T0228 : POKE36876.G:NEXTO:P. 
OKE36876.0 

278 GOSUBSAQ 

282 NEXTX 

290 NEXTY1 

30 PRINTLEFTS¢Y#,15>; "THE WINNER IS" 
jLEFTS C$, 17); LEFTS(XS, 595 

310 IFC¢1)<C¢2) THEN PRINT" THE MACHIN 
e" 

32 IFC(2><C(1) THEN PRINT"THE HUNAN" 
498 STOP 


5@@ PRINT'D @ 123456789 "PRINT 
LEFTS(Y$, 5) i LEFTS (XS. 18) 5 "HUME" | LEFTS 
E57) 


502 PRINTLEFTSCXS, 1895C¢1) /LEFTS(¥$,7 
DILEFTSCKE, 18); "VIC" SLEFTS(¥$,8) 5 

585 PRINTLEFTS(X$, 18) /0(2);LEFTSCYS, 1 
D;LEFTS¢(M$, 18); "BALL" 

‘5Q7 PRINTLEFTSC(XS, 18); "He" 
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51@ FORQ=1 TO 19 

528 POKE646,2+RND(1)#2:PRINTLEFTS(Y$, 

4125 "MA" [LETS CYS, O41) :LEFTSCXS, 17) 

nee 

53Q NEXTQ 

‘S35 PRINTLEFTS(Y$, 1995 "MM e747 77. 

ceded" 

540 PRINT MMe Aled tecee eee" 

550 PRINTLEFTS(Y$, 3) iLEFTS(X$, 595" 

1 ANSLEFTSC¥$, 5) ;LEFTSCRS, 3) 
x oz" 

56 POKEG46, 2+RNDC1)#5:PRINTL 

7IILEFTSCMS,495"1 11 11 1" 

57@ POKE646, 2+RND¢ 1 #5: PRINTLEFTS(Y$, 

19);LEFTS¢X$,3)5"7_ 7 7 7" 

588 POKES46, 2+RND¢ 1985: PRINTLEFTSCY$, 

12);LEFTS$¢¥$,395"5 5 5 5" 

590 POKES46, 2+2ND¢1)4#5:PRINTLEFTS(¥$, 

15); LEFTSCK$,6);"9 9 9" 

S95 PRINTLEFTSCY$, 179 ;LEFTSCXS, 4) 5 "8 
8 38" 

608 RETURN 

1988 DIM C¢2) 

1868 POKE36! 

1878 RETURN 


9B: PRINT" > 


REPTILE 

Inthis program, by Paul Toland, you are in control of a snake, 
and you must try to grow your snake as long as possible, by 
directing it to the pound signs which it eats. However, the £ 
remain on the screen for only ashort time, after which they turn 
into poisonous dollar signs. The snake will also dieif it hits the 
surrounding border, or itself. Once the game is over, you'll be 
told how long you became. 
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Notice how we use the function to look at the screen in this 
program as well. 


@ POKES6, 27: POKESS. 255 
1 POKE36878. 15:DEF FN SC(A)=PEEK(7680 
+¥#22+A) 

2 GOSUBSE0 

5 GoTO288 

7 L=2 

10 X1$=CHR$(10)+CHRS(11> 

20 Y1$=CHRS(10)+CHRS(12) 

22 YEH" AMO 
25 MS="IROPRRRRPPRSREDDD REDD 
38 POKE36879, 120:PRINT*Za" 

35 FORI=128T0259 

40 POKE36876, I 

5@ NEXTI :POKE36876,9 

60 MX=INTCRNDC1)#22> 

78 MY=INTCRND(1)#22) 

80 Y=MV:IFFN SC(MX)<>32THEN6® 

98 PRINT LEFTSCY$, MY+1) ;LEFTSCXS,MX) i 
"ge" 

108 POKE36876, 150: POKE26676. 0 

118 FORI=1T040 

120 OXSASC(X1$) 

125 GETKS 

138 OX=0X+¢K$="A">-(K$="D") 

148 OV=ASCCY1$) 

158 Ov=0v+(k$="H")-(KS= 
168 IFOX=ASC(K1$) ANDOY=ASC(Y1$) THENOX 
=0X+0X-ASC(MIDS(X1$, 2) >: OVeOV+0¥-ASC( 
MIDSC¥1$,2)> 

165 IFOXCBOROXS210ROY<BOROY>2: 
178 Y=O¥:1F FN 56 TH 
189 IF FH SCCOX OR FN SCCOX 


(CHAPTER FIFTEEN 
HEN262 

182 PRINT LEFTS$¢(¥$,0¥+1 5LEFTS(XS,0x) 
70a" 


185 PRINT LEFTS<¥$,ASCCMIDS(¥1$,L) +1 
Ds LEFTS(X$, ASCCMIDS(X1$,L)>>5" " 

199 X1$=CHRS<OX)+LEFTS<CXIS..L) 

208 Y1$=CHRSC(OY)+LEFTSCYIS,L) 

21@ NEXTI 

220 Yom: IF FN SCC(MX)=156 THENPRINTLE 
FTSCYS, MY+1)/LEFTSCRS, MX); "BS" 

238 GOTO6e 

24@ PRINTLEFTSCY$, 1>;"M@3¥OU CRASHED I 
NTO THE SURROUNDING WALL— 
258 GoTO278 

(268 PRINTLEFTS$<Y$, 1); "WOU HIT SOMET 
HING YOU SHOULD NOT HAVYE-" 

278 PRINT" AFTER GROWING TO";L 

275 POKE36876, 128:FORI=1T0S0: NEXT! 
277 POKE36876, @:FORI=11020@0:NEXTI 
290 PRINT "TB@@@8@@R@ SSNAKESISAAR 
299 PRINT" @YOU ARE DIRECTING A MONE 
Y SNAKE AROUND THESCREEN USING THE KE 
ys" 

292 PRINT"SA,D, Wax, YOUR AIM IS TO M 
KE THE SNAKE GROWEY GUIDING IT TO TH 
Ee 

295 PRINT"SE SIGNS, ON WHICH IT FEED 
s." 

200 PRINT" MMISEACH £ REMAINS ON THE SC 
REEN FOR A SHORT PERIOD BEFORE” 
382 PRINT" SCONVERTH R$ WHIC 
LLS IF ERTEN, TI 


i 
305 PRINT" SIT BITES ITSELF. 
387 PRINT"MSPRESS “Y’ TO START THEGAM 
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E OR “N’ TO STOP" 


335 POKE36869, 240: PRINT" 

348 STOP 

408 REM CHARACTER DATA 

418 FORI=7424707431 :POKEI,@:NEXTI 
420 FORI=7168707175 

438 READN:POKEI,N 

442 NEXTI : POKE36969. 255: RETURN 

450 DATA231, 165,255, 36.36.255. 165,231 


STARS AND STRIPES. 

Despite what you first thought when you saw the title, this 
program does not draw an American Flag. Instead, it plays an 
elaborate, and most colourful, version of Noughts and 
Crosses. Once you've played a few rounds against the program 
as itis, you can modify it to play against itself, which is fun to 
watch. To make it an ‘Auto-Stars and Stripes’, change line 88 
s0 it reads as follows: 


88 BS=RIGHTS(STRECINTCRNDC1 #941), 1) 


Here is the main listing, in which you play against the 
computer: 


5S POKE36878, 15 

19 REM STARS AND STRIPES 

12 POKE36879,30:PRINT""; 

15 PRINT" SOUCO ORR DRRIS ° 
17 PRINT SRAODARIOSSRORB RID 


28 DIMAS(9>, C69) :CC2>=1 
30 RESTORE : G=@ : FORB=1T09: POKE36876, 13 
Q+B#2 :READAS(B) : [FCCB>=@THENG=G+1 


CHAPTER FIFTEEN 


32 POKE36876,0:NEXTB 

33 IFG=@THENE=2:GOTO115 
35 GOTO 76 

49 PRINT" SOUORD DEBBI 
45 IF CCD)=QTHENPRINT"H" 5 
5@ IF CCD)=1THENPRINT"S X 
SS IF C(D>=2THENPRINT"@ 0 
60 IF D=3 OR D=6 THENPRINT:PRINTTABC? 
hes “<PRINTTABC?> > 

7@ NEXTD: PRINT 

75 RETURN 

76 GOSUB4S 

80 GETBS: IFB$<"1"ORBS>"9" THENSO 

30 E=VALCBS) : IFC(E) COOTHENSO 

188 CCE)=2 

119 IFLENCAS (ED )=QTHENL17 

115 FeASC(AS(E> )-80:G0TO120 

117 PRINT" MxM" 5 TABC795"IT7S A DRAW" :F 
ORG=15@T0200 : POKE36876, G: NEXT : POKE368 
76,8:RUN 

128 IFC(F)=9THENI4Q 

130 ASCED=MIDSCASCE>, 2>:GOTOI1G 

140 C(F)=1 

145 GOSUB4@ 

159 IFCC1)=CC22ANDC(22=C¢3ANDCC 1900 
THEN ON C(1)G0T0518,528 

168 1FC<4)=C¢S)ANDC(5)=C(6ANDC(49 OB 
THEN ON C(4)G0TO051@, 528 

178 IFCC7)=C¢BANDC(8)=C(9ANDC(7 8 
THEN ON C¢7)G0T051,520 

188 IFCC1)=0¢5ANDC(S)=CC9IANDCC 108 
THEN ON C¢(1)GOTOS1@. 522 

190 IFC(3)=C<5>ANDC(S)=0¢7 7ANDCC9) C0 
THEN ON C¢3)G0T0519.520 

208 IFCC1)=C¢4ANDCC4)=C¢67 ANDCS 1908 


FORD=1T09 


167 
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THEN ON C(1>G0T0512@,520 

21@ IFCC2)=0(S2ANDC(S)=0 (8 ANDC(ZIOB 
THEN ON €(2)G0TOS1@,520 

228 IFC(3)=C(6ANDC (6) =C(9 ANDC(39<>8 
THEN ON €(3)G0T051@,520 

238 GOTO 30 

51@ PRINT*MMQMN" | TABCS) 5 "TWIN! !":FORG 
=128T0208 :POKE36876, G : NEXTG: POKE36876 
2 B:RUN 

522 PRINT*MMMBYOU WIN! !*:FORG=128T020 
8: POKE36876. G: NEXTG : POKE36876, 0: RLN 
53@ DATAURMSVTY, P. UWYOTYX, OSUVYX, OSWT 
VYR, SQUHR,QSUKYs SOWLYVT., SQUXW 


CHECKERS 

Challenge your computer to this traditional board game of 
skill. In this program, written by Graham Charlton, you enter 
your moves as the letter across the top followed by the letter 
down the side of the square you want to move from, then after 
pressing RETURN the letters of the square you're moving to. 
the entry must be in the form of “AB” or “FE”. 


68 GNSUB79AR 

1020 PRINT SOtOnmeee" 
1@25 PRINT"THIS MOVE" : M0: 
1019 PRINT"TTO" : INPLUTTHS 
1950 PRINT"TSTAND BY" 
1Q6@ XS=LEFTSCFHS, 1): YS=RIGHTS(FHS, 1) 
SFREASCCHS) ! FEAST CWS) 

1965 X$=LEFTSCTHS, 1): 
TREASCSHS) | THARSO CYS) 

19728 F 64: FYSFY-64: THETH-64 TET? 
-64 


INPUTFHS 


‘$sRIGHTS(THS. 1) 


CHAPTER FIFTEEN 


1428 M0=8 

1438 AUCTY, TRISRKCFY, FR? = AUCFY FXSB 
1450 IFRBS(TY-F¥Y)>1 THENMO=1 :AZCFY+¢(T 
Y-FY9/2) FRAC CTR-FRI 2) 1 

1478 GOSUB7a00 

2088 Y=8 

2086 X=8 

2020 IF AZCY.XOOC AND ACY, X2COKTHEN 
2100 

2038 IFA%CY,X>=C AND Y=STHENAZCY, X9=K 
2048 FORD=8T03 

2041 Qe-1 

2045 IFX+24KCDI<CL OR A+2#XCDPBTHENZD 
98 

2046 IFY+2eYCDCL OR Y+2HYCDSSTHENZE 
30 


2050 IFCARCY+YCD), X#RCDD =H OR ACY 
CD), EXCDD 2=W)ANDAZCY+ZKY CD), 4424 ODD 
>=BTHENO=D 

2078 IFAZCY.X2OOK ANDDD1THEN2130 
2080 IFQ>-1ANDO<4THENZ125 

2090 NEXTD 

2100 IFAZCY, X)=HANDY=1THENAZ CY, XSW 
2110 » IFK>OTHENZO29 

2115 Y=¥—1 + IFYDOTHEN2ZO26 

2128 IFQ=-1THEN235@ 

2125 PREX+2#X(Q): PY=42#Y (0) 

2138 S=S+1 

2135 ANCY+VCQ), X+XCQ)=B 

214Q AUCPY, PXISARCY, XD 

2145 AZT XD=B 

2158 GOSUB7200 

2155 M=-1 

2168 FOR! 
2169 IFPX+2aXCD)CL OR PX+Z#KCD?>STHEN 


169 
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2200 
2166 IFPY+2YCDD<1 OR PY+2HYCD)>STHEN 


2206 

2178 IFRACPY+Y(D>,PX+#XCD) COHAND AZCP 
Y+¥CD) PREXCD? COWTHENZ 180 

2175 IFAZCPY+Y(D)#2, PX+2XCD) = BTHENM 
=D 

2182 IFAZCPY.PX)<>KANDD> 1 THENZ2 12 
2198 IFM>~1THEN221@ 

2288 NEXTD 

2210 IFM=-1THENS® 

2228 AZCPY+Y(M) , PREKCMD ISB 

2222 ALCPY+28Y CMD, PREZHKCM) =AZCPY, PX 


> 
2224 RACPY,PX>=B 
2226 S=S+1 


2368 PY=INTCRND(1)#8+1) :PXeINTCRNDC1) 
#841) 

2378 YeveL 

2371 Qe-1 

2375 IFY>4Q@THEN2449 

2388 IFA%CPY, PX><>CANDAZCPY, PX) <OKTHE 


N2368 

2398 FORD=@TO3 

2395 Q=-1 

2396 IFPY+YCD)CLORPY+(D)>STHEN2425 
2397 IFPX+XCD)CIORPX+X(D) SSTHENZ425, 
2400 IFAZ (PY, PX) =CANDD> 1 THEN2$25 
241@ IFAZCPY+¥(D), PR+X(D) =BTHENQ=D 
2428 IFQ>-1ANDQ<4THEN2463 

2425 NEXTD 

2438 IFYC4O1THENZ36@ 

2448 F$="L" 


CHAPTER FIFTEEN 


2458 GOTO7800 

2468 AZCPY+YCO), PH+X6Q) =AZCPY, PX) 
2478 RACPY.PX)=B 

2492 GOTOSe 

7209 PRINT" Hs ABCDEFGH” 

70S FORY=1708 :POKECO+V#22, 1 :POKESC+Y 


"22,7 
7010 FORK=1T08:CL=2: IFAZ(Y, X)=16QTHEN 
CL=6 


7015 IFRACY.X)=C OR ACW, X)=KTHENCL=S 
7020 IFAACY, X)=H OR 'Y, X)SWTHENCL #1 
7@25 POKECO+V#22+x, CL :POKESC+Y#22+x.A 
ROYER? 

7038 HEXTX,¥ 

7835 PRINT" SDOANCOMPUTER" S" 


7837 PRINT" THUMAN"T 
7048 PRINT" 


7845 PRINT" 
785@ PRINT" 


7210 IFF$="L"THENPRINT PRINT" CONCE 
DE THE GAME”: STOP 

7230 IFS=12THENPRINT:PRINT"SMYYITYM 
IN" :STOP 

7248 IFT=12THENPRINT :PRINT"STTTYITWOU 


WIR": STI 

7268 US: IFMOOLTHEN7265 

7262 PRINT" SAOOMTICAN YOU JUMP AG 
AIN “SINPUTUS 


m1 
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731@ IFLEFTSCUS, 1)="Y"THENFHS=CHRS(TX 
+64)+CHRE(TY+64) ‘GOTO1G10 
7328 RETURN 

STOP 
9008 DIMAX<S,8) 
9085 ¥COD=1:XCO)e-1 YC ALE XCD aL 
9O10 ¥C2)=—1 :X(Q.|e-2: 163) s-1 XC3)#1 
9259 H=209:C=215'W=139:K=151 
9068 BH160:Q=-1:F$="":S=8: T= 
9961 CO=38420:SC=7680 
9065 FORY=1T08 = IF2WINT(¥/2)=YTHENFORX 
S1TOPSTEP2 :GOTO9E7S: 
9870 FORK=2TOSSTEP2 
9875 AZCY,X)=168 
9080 IFINT(X/2)#2=XTHENAZ CY, X-1)=32 
9@BS IF INTCX/22#2CXTHENAZ CY, X41 =32 
9098 NEXTX.Y 
9115 FORY=1T03 
9120 IF2INTCY/2)=YTHENFORK=1TO7STEP2 
GOTO9139 
9125 FORK=2TOSSTEP2 
9138 ARCH XI=C 
9135 NEXTX,Y 
9148 FORYS6T08 
9145 IF2INT(Y./2)=YTHENFORX=1TO7STEP2 
GOTOS155, 
91S@ FORX=2TOBSTEP2 
S155 AZCY,X=H 
9160 NEXTX,Y 
9165 FHS="":THS="" 
9300 POKE36879, 9: PRINT" ZEEDRAUGHTS" :PR 
INT:PRINT" #00 YOU WANT FIRST MOV! 
9312 INPUTYS:PRINT'I": IFLEFTSCY$, 1=" 
4" THENRETURN 
9349 G0SUB700 
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9352 A=INTCRND(1 #341 #2: QeINTCRND(1) 
#2) 

9378 AUC3+¥CQ) RFX CO) SC: AZC3,A)=168 
9392 RETURN 


FOLLOW ME 

Inthis game, you have to duplicate the colour and tone pattern 
‘generated by the computer. There is a catch. At first, you will 
have only one sound/colour combination to remember. Then 
the computer will add a new combination to the first one, and 
play both. You will have to repeat both. Then the sequence will 
become three sound/colour combinations long, and you have 
to repeat all three. . . and so on. 


You copy the computer’s sequence by using the keys numbered 
1 to 4. There is a high score feature. 


18 H=@ 

20 POKE36879,8 
3@ POKE36878, 12 
5@ PRINT"Za" 

62 DATA2.5,3,7 
78 J=RND(-TI) 
88 RESTORE 

9@ PRINT**" 

199 AS: 
118 S=@ 

128 D=108 

190 MS="aeR” 

20@ PRINTMS; TABC13) 5 “MSIMON" 

210 PRINT" MUMMASCORE" )S:PRINT" SORE 
HI SCORE*;H 

228 PRINT"#i------- 
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240 FORI=1TOD#3:NEXT 

250 AS=AS+CHRSCINTCRND( 18441) 
255 FORT=1TOLENCRS) 

268 FORR=1TORSC(MIDS(AS,T>) 
278 READE 

288 NEXTA 

265 RESTORE 

286 POKE646,B 

293 PRINT" OOOOORROOOS 


300 PRINT" ODDO” | TABS CASC( 
MIDSCAS, T)>~1985) 5 

305 PRINTASC(MIDS(AS,T>) 

31@ POKE36976, 183+CASC(MIDS(A$,T)-1) 
#12: POKE36875, 201 :FORI=1TODS8 ‘NEXT 
320 POKE36876, 0: POKE36875,0 

330 PRINT" AOMORI 


335 PRINT" OOOO" | TABS CAST ( 
MIDSCAS.T)2-1)45)5" —* 

348 NEXTT 

958 RESTORE 

968 FORR=1TO4 

370 PRINT" SOON” | TABCCA-1 
Leal 

380 READB 

386 POKE646,B 

390 PRINT" SNE" | TABCCA-1 
45) 5" , 

49@ NEXTA 

41@ RESTORE 

415 FORT=1TOLENCA$> 

420 FORA=1TODeS 

430 GETIS 

448 IFIS>"2"ANDISC"S"THENSSO 
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450 NEXTA 

468 MS=MIDSCMS, 2) 

465 FORK=1T02:FORI=17012 

478 POKE36879, 8+1#16+INTCRND<1#8)+1 
POKES6878, 10+1 : POKES6677. IWINTCRND(1> 
#8>+1 

482 POKE36876, 200-1412: POKE36875, 150+ 
INTCNRD( 1 #8) +15 : POKE36874, 138+INTCR 
ND¢1>#108> 

498 NEXTILX 

580 POKE36874, @:POKE36875, @:POKE36876 
0: POKE36877, @ : POKE36878, 1@ 

510 FORI=245TO15@STEP-. 5: POKE36877, 1 
NEXT : FORI=12070200 : POKE36877. I :NEXT 
S15 POKE36877,2 

520 POKE36879,8 

53 PRINT"" 

535 IFM$<>""THEN2SS: 

‘548 GOTO64O 

55Q IFVAL(1$)CASCCMIDS(A$, T> > THEN4EO 
'56@ POKE36876, 183+(VAL(I1$)-1)#12:POKE 
36875, 201 

562 FORI=1T050Q : NEXT : POKES6875,@:POKE 
36876,8 

565 GETIS: IFI$C>""THENSES 


‘57@ NEXTT 

582 PRINT"D" 

598 S=S+1 

628 D=D-S/S 

618 IFDCOTHEND=0 

620 IFHCSTHENHSS: 

638 GOTO2ee 

642 FORR=1T020 

650 POKE36875. 120+A 
668 POKE36876,240-AiNS 
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67@ FORT=1 T0100: NEXT : POKE36875, @ POKE 
368i 


675 NEXTA 

680 PRINT" RMIMNMSCORE" 5S 
692 PRINT" MMI SCORE"; 
708 PRINT" MMMNMMPRESS ANY KEY TO P 


LAY AGAIN, 

718 GETAS: IFF “THEN71@ 
728 GoTOse 
ECOLOGICAL DISASTER 


Here’s your chance to make decisions of national importance. 
the program explains the starting scenario. 


See if you can get the lake to survive longer than 10 weeks. 


S COS="McTAMi" : POKE36878, 15 

16 REM ECOLOGICAL DISASTER 

15 RN=RND(1) : BW=@: POKE36879. 24: PRINTC 
HRE(147); 

2@ PRINTTABC2);"MYOU ARE THE 
PRESIDENTS" 

3@ PRINT" ADVISOR ON NATURAL RESOU 
RCES,AND PART OF YOUR JOB IS TO STOCK 


98 PRINT" A NEW LAKE IN MICHI 
GAN WITH FISH AND EELS...." 
3 iT" THE ONLY CATCH IS THAT 


THE FISH AND EELS ARE ENEMIES.... 


68 PRINT” ‘YOU MUST SEL ‘START 
ING NUMBERS OF = FISH AND EELS WHICH" 
7@ PRINT" WILL ENSURE THE LONGE 


CHAPTER FIFTEEN 
ST POSSIBLE SURVIVAL OF THE LAKE 
159 PRINT" PRESS A KEY WHEN 


YOU'RE READY 
168 GETAS IFAS" *THENIE® 


165 PRINT'*" 

176 PRINT“ENTER THE STARTING NUMBE 
R OF EELS “LESS THAN 102)." 
175 INPUTEL 


18@ IFEL>1QQ0REL<1 THENI75, 

19 PRINT"ENTER THE STARTING NUMBE 
R OF FISH (LESS THAN 1@3)," 
195 INPUTFI 

200 IFFID1QQ0RFICITHENISS: 

205 FI=FI/3:WE=0 

218 FORG=138T0230 

228 PRINTMIDS<COS, RND(1)#6+1, 1); 

225 PRINT" MDOT HEL 
AKE IS EVOLVING" 

238 POKE36876,G: NEXTO: POKE36876,9 
235 WE=WE+1 : PRIN’ 
248 POKE36879, 40: PRINT*AREPORT TO PRE 
SIDENT ATTHE END OF WEEK"; WE 

25@ EL=EL+( (@WEL-EL#F1/3)#RN)> 

260 FISF1+¢<4#FI-FIWEL&#.Q1> 

270 PRINT" MDMA" ; TABCS) | MIDS<COS, RNDC 
18641, 1); -INTCFI RCE IDO) > 

275 PRINT"MB FISH" 

280 PRINT" ¥MMMMa" ; TABCS) | MIDSCCOS, RNDC 
18641, 1)5-INTCELD#CELD@) 5 

285 PRINT“§@ EELS" 

298 IFEL<2 OR FI<2THENPRINT"3"; :GOTO3 
18 

3@@ GOTO212 

318 IFWE>BWTHENBW=WE 


17 
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315 FORG=1T040 

328 PRINTMIDS<(COS, RNDCL2#6+1, 1) 5 "ECOL 
OGICAL DISASTER" 

338 POKE36879, 4Q+RNDCLI¥B POKE36876,2 


00-6 
348 NEXTG:POKE36876, 2 


36@ POKE36879, 25: PRINT" 


38@ PRINT" MMO) IT’S ALL OVER NOW," 
398 PRINT" NATURAL RESOURCES ADVI 
SOR. SIR!" 

402 PRINT"MM™ YOUR LAKE STAYED" 
405 PRINT" ALIVE FOR"; WE; "WEEKS" 
418 PRINT“ SQ YOUR BEST TO DATE” 
415 PRINT" IS"; BW; "WEEKS..." 

428 FORG=130TO230STEP. 1 

425 POKE36876.6 

438 NEXTG: POKE36876,8 

448 PRINT""; :GOTO20 


CASUALTY 

In this program written by Paul Toland, you are on a minefield 
which is full of casualties. You have to push a wheelchair 
around the minefield, avoiding the mines and electrified fence, 
to collect each casualty and bring him or her to the hospital 
(shown asa +). The wheelchair can only carry one casualty at a 
time 


5S POKES6, 


18 
15 
17 


:? : POKES, 255 : POKE36878, 15 
VS= "ATTACH 
XE="MRREDODEREDEDED REESE: 
DEF FN SCC(AD=PEEK(7680+'v22+A) 
GOSUBSOR 
GgOTO610 
POKE36879, 127:PRINT"PODDDDODDDDDD 


CHAPTER FIFTEEN, 


DDDDDDPDDD" 

35 FORI=7702T08142STEP22 

4@ POKEI+30720,2:POKEI+3@741.2 

45 POKEI,5S:POKEI+21,5:°NEXTI 

5Q@ FORI=8164T0818S : POXE1+38720, 2 

55 POKEI,4:NEXTI 

68 PRINT"S"; 

20 FORI=1 TO 20 

@ PRINT LEFTS<¥$.RNDC1)#17+3);LEFTS 
CRS RNDC 191842) 5 "0" 

118 NEXTI 
115 PRINT" 
120 FORI=17020 

138 NTCRND(19818)4+2 

148 VeINTCRND(1)#17)42 

158 IF FN SCCK)C32THENI3@ 

16@ PRINTLEFTS(YS, V1) ;LEFTS(X$, Xi "B 


170 NEXTE 

199 PRINT" @"; 

200 CAR=0 

210 RET=O 

220 Xeliivst 

222 Red: Dee 

230 PRINTLEFTS(YS, Y+1);LEFTS(XS.X) 5" 


235 PRINTLEFTSCY$,2);LEFTS(XS, 11); " 


237 GETIS 

240 IFI$="R" THENAS~i:D=2 
245 IFI$="D" THENAS1 :D=@ 
250 IFI$="X" THENA=0°:D= 
255 IFT: THENA=2 : D=—7 
257 XeK+A: Yate) 

250 CHREN SCCXD 
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265 PRINTLEFTS( VS, +1) :LEFTSCX$,%);CH 
RSC644CARD 

27@ IFCH=3 THENS@@ 

280 IFCH=4 ORCH=5 THENS2O 

298 IFCH=2 ANDCAR THENS4@ 

908 IFCH=2 THENCAR=1 


31@ IFCH=171ANDCAR THENCAR=0 : POKES697 
6, 200: RE=RET+1 :POKE36876, 0: IFRET=20TH 
ENS69 

320 FORI=1T0 DELAY: NEXTI 

33@ G0T0230 


400 FORI=7424707431 :POKEI .@*NEXTI 

418 FORI=7168T07215 

420 READN:POKEL,N 

430 NEXTI 

448 POKE36869, 255: RETURN 

452 DATA192, 192, 144,240, 144, 144,158,2 


462 DATA192, 192, 156,252, 152, 159, 159,2 


478 DATRA,2,9,0,0,289. 289,255 

482 DATAG,0,2,62, 82,255,630 

49@ DATAGS, 65, 162, 162,20,28,8,8 

495 DATAI2,3, 12,48, 192.48, 12, 

1] PRINTLEFTSCY$, ¥+19 | LEFTS(X$,%) 5 "Hi 
POKE36876, 128 

‘S19 PRINTLEFTSCY$, 2); "@@VOU HIT A MIN 
E" : POKE36876.8:GOTO6 

S20 PRINTLEFTS(Y$, 2) ; "BRSSIZZZZ2Z7Z2ZAAA 
RAPPP® 

525 FORI=i28T017@STEP3 

53@ POKE36876, I :POKE36375, 1+10 
535_NEXTI : POKE36876, @:POKE36875,0:GOT 
0608 

54@ PRINTLEFTS(Y$, 295" 


MASTHE WHEEL C 
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HAIR 
S45 PRINT" SBBBBISDVER-LOADED" : GOTO620 
568 POKE36876, 200: POKE36875,250 

57@ PRINT: PRINT"S@vOU DID IT!!! 1" 
588 POKE36876, 0: POKE36875,0 
692 PRINT" M@SYOU RESCUED" | RET 
685 PRINT" OUT OF THE 20" 
607 FOR 14902 :NEXTI 

618 PRINT’ eg a lace 
620 PRINT" @™ THERE ARE 23 
UALTIES LYING IN THE MINEFIELD. r ; 


622 PRINT" SOUR JOB TO BRING THEMTC T 
HE HOSPITAL IN A WHEELCHAIR ONE AT A 


625 PRINT’ STIME, THE FENCE AROUNDTHE 
FIELD IS ELECTRIFIED $0 AVOI 
Dp” 

27 PRINT" CONTACT WITH IT. 
639 PRINT"SMMCHOOSE A SKILL LEVEL @ 
TO 5 <3 EASY)" 

635 INPUT" #" | DELAY 

646 IF DELAVYC@ ORDELAYDS THEN635 
659 DELAY=DELAY#15+4 

668 GOTO8 


SLALOM 

In this game you control a skier who is skiing down a slope. 
Turn your man left with the Z key, right with the M key. 
Decrease his speed with the C key and increase it with the B key 
Watch out for the trees and ice, and try to navigate between the 
posts. 
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1_PRINT"®2" : POKE36879, 30: FORI=7680T081 
85: POKEI, 160: NEXT : POKE36878, 8 

2 POKESS, 96 : POKES6, 29: FORI=7520T07679 
READR *POKEI ,R: NEXT : POKE36869, 255 

3 P=11 SC#=7688:CS=38400:C0=30720:S=0: 
L=288+CINTCRND(1)#58>) :D=2:SP=2 

16 IFL=@THENS2 

11 IFRND(1)<. 25THEN1@0 

12 IFRND(1)<, @STHEN72 

13 IFRND(1)<. 35THENS@ 

15 FORI=1TOINTCRND(1 #4941 

28 TReB164+INTCRND( 1822): POKETR+CO, 5 
POKETR, 49: NEXT 

25 soTo1ee 

32 CR=B164+INTCRNDC 19417) 

40 FORI=1TOINTCRND¢ 1 #441 

‘5@ POKECR+CO+1,3:POKECR+I, 48 

6@ NEXT 

65 GOTO1A0 

7@ PO=8164+INTCRND(1>#14) 

75 POKEPO+CO, 4: POKEPO, S@:FORI=1TOINT( 
RNDC1)¥#4)+2 

38 POKEPO+I,224:NEXT 

9@ POKEPO+1+C0, 4: POKEPO+1,5@ 

91 GOTO100 

92 POKES172+00,@:POKES176+C0, 0: POKES1 
‘51+CO.6:POKEB152+C0. 6: POKE8153+C0,6 
95 POKES172,231 :POKE8176, 229: POKES151 
58: POKES152, 59: POKES153,60 

182 POKE7782+P, 162: POKE?724+P, 160 
185 PRINT" RAAT = S= 
S+1:LeL-1 

118 PRINT" M3458" 5S 

128 2=PEEK¢197) 
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13@ UsP 

135 1FZ=33THEND=D-1 : IFDC1THEND=1 

136 IFZ=36THEND=D+1 : IFD>3THEND=3 

137 IFZ=330RZ=36THENPOKE36877 240 

148 UaU-CD=1#<UD8)+¢D=3)#(UK21) 

15 SP=SP~(2=34)#(SP>1)+(Z=35)#(SPCS), 
151 IFZ2340RZ=35THENPOKE36874 200 

168 IFPEEK(7724+U)=4S0RPEEK(77244U)=5 
@THENP=) :GOT01800 

178 IFPEEK(7724+1))=224THENS=(S#2)+(10 
#5P) : FORX=280T0245 : POKE36876, X: NEXT 
189 IFPEEK(77244\)=48THENSP=INT(RND¢1 
)#5)+1 *S=INT(S/2) : POKE36875, 235 

182 PsU 

185 IFPEEK(7768+P)>S7ANDPEEK(7768+P )< 
61 THEN2080 

190 POKE7702+P+CO,2:POKE7724+P+C0,2°P 
OKE7702+P, 44: POKE7724+P, 4440 

195 IFL=-4@THEN3009 

208 FORI=1T010-(SP#29> : NEXT : POKE3687 
4,8: POKE36875 , @: POKE36976, 0: POKE36877 
»8:G0TO18 

251 -31,251,136,43.8 

255 -6 

1888 POKE36874, 0: POKE36875. @:POKE3687 
6,8: POKE36977,2 

1881 POKE7702+P, 160: POKE7722+P, 160° 1F 
PD1STHENI112 

1918 FORI=7746+PTO7745+P+INTCRND( 145, 
+L 

102@ D=D+1: IFD>4THEND=1 

183 POKEI+CO,2:POKEI,53+D 

1835 POKE36877 , 230+(1-7746) 

1849 FORJ=170180: NEXT 

1858 POKEI, 160:NEXT :P=P+5 
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1418 POKE36877, 8: FORI=7746+PT03164+PS 
TEP22 

1128 D=D+1: IFDD4THEND=1 

1138 POKEI+C0,2:POKE!,53+D 

1132 READNO 

1135 POKE36875,NO 

1148 READPA: FORJ=1TOPA: NEXT: POKE36875 
»@:FORJ=1 7022: NEXT 

1152 POKEI, 160:NEXT 

A155 POKE36877, 149: FORI=1 T0500: NEXT 
1168 POKE36877, 9: FORI=1T03000:NEXT:PO 
KE36869, 240: PRINT"2I" : POKES6879. 8 

1208 PRINT" SMBRD LUCK; YOU CRASHED" 
1300 PRINT SHARE AEEHEEAEEHE” 
1301 PRINT" MASCORE:"S 

1305 PRINT" MEMO YOu" 

131@ PRINT*WANT ANOTHER GOs?" :POKE19S 
Q 


1320 GETAS 
133@ IFAT="¥" THENRUN 

134 IFASC)"N"THEN1320 

1352 END 

2002 POKE36874, 2: POKE36875,8 POKE3687 
6,8: POKE36877.3 

2005 POKE36878, 1 :POKE36877,241 FORI=1 
1010 

2018 FORI=8T02 
2015 POKE7724+P— 


3#22400,2 
3822), 6143 -FORK=1703 
XT | POKE77244P-(3#22), 169 


2045 POKE?Ee+P+(1422)=00,2 
2058 POKE76SB+P+¢ J#22>,, J FOR? 
00 : NEXT : POKE7680+P+<J#22),160 
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2069 NEXTJ,I 

2078 POKE36877,8 

2200 POKE36869, 240: PRINT"2N" : POKE36879 
+118 

221@ PRINT"MWELL DONE!" 

2249 GOT01300 

FABO POKEI6B69, 242: PRINT"3)" : POKE3ES79 
2216 

3018 PRINT"MM@'YOU MISSED THE FINISH FO 
sTii* 

9828 GOT01300 

7762 -7746 

9982 DATASG, 56,56, 16, 124, 186, 196, 186. 
186,48,48,42,46,72, 144,32 

9819 DATA16, 42, 42,42, 48,68,8,0, 186.4 
0,48, 168, 104, 36,18,8 

9020 DATA®,0,0,4, 18,173, 182, 193,8,28, 
28,62,62,127,127,8 

9038 DATAIE, 24,28, 30, 16, 16,16, 16 
9848 DATAQ,@, 238, 136,232, 40,238,020 
238,178,174, 172,234,.8 

9058 DATAG, 8,244, 128.224,128,244,8 
9062 DATASE. 56, 16,124, 186,178,408, 108, 
48,136, 251,31,251,136.48.9 

9878 DATAIOS, 40,170, 186.124, 16,56,56, 
Q, 12, 17,223. 248,223,17.12 

9088 DATAZSS, 194,222,222, 194,222,222, 
255, 255, 138,178,178, 178,171,170,255 
9892 DATR2SS, 43,235. 235.35, 171,43, 255 
9188 DATASS, 56, 16, 124. 186, 178,40, 188, 
56,56, 16,608,219, 24,36, 102 

9118 DATAQ, 186, 186, 146. 124.56, 40,198 
9580 DATAI9S, 690,0, 60,195, 450.0,60.19 
5.158, 195,600, 0,60, 203.450, 201,152 
9519 DATAA, 60,201,450, 195, 150,0,60,19 
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5,450,0,68, 195, 150. 8,62, 195, 758,08, 258 
78,258 


OPERATION DESPERATION 

Your planes engine has stopped as you are flying over a large 
city. Your altitude is decreasing rapidly, and your only hope of 
landing intact is to flatten the city with your bombs. Due to a 
fault in your missile tracking system, only one bomb may be in 
the air at any one time. 


At the start of the program, line 26 sends action to the 
subroutine at line 350, where the user-defined graphics are 
constructed ““@"" is the unit of ‘wall of window’ used to build 
up the city. ““C”" is the bomb, ‘*A”” is the roof of the buildings, 
“B’" is the ground, and “D” is the plane. 


Once the program is working satisfactorily, the graphics can be 
created. Working in this way (instead of defining the characters 
before you start on the mechanics of the program proper) 
ensure you do not get so engrossed in making pretty graphics 
that you forget to make the program worthwhile in its own 
right 


On returning from that subroutine, a routine (from 280) is 
called by line 30. This prints up the instructions: 


THE ENGINE OF YOUR PLANE HAS STALLED 
WHILST YOU ARE OVER A LARGE CITY. YOUR 
ONLY HOPE OF LANDING SAFELY IS TO FLATTEN 
THE CITY WITH YOUR BOMBS. PRESS ‘F’ TO 
RELEASE A BOMB; ONLY ONE BOMB MAY BE 
FALLING AT ANY ONE TIME. 


PRESS *Y’ TO START, ‘N’ TO STOP. 


After the instructions you'll see one way of using GET to wait 
until a specific key is pressed (other ways of doing these are 
demonstrated in other programs in this book). The string 
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variable AS is set equal to GET. Line 310 checks to see if AS 
‘equals “"Y" and if it does, the program goes to line 40, to begin 
in earnest. If AS does not equal “Y”, the programm “falls 
through’ to the next line, where a check is made to sec if AS 
‘equals “"N'. If it does, the program terminates in line 320. If it 
does not, line 330 is reached, which sends the computer back to 
300 (0 read the keyboard again (that is, to get another value of 
GET). This cycle continues until either “Y" or "'N' is 
detected. 


Back at line 48, the background and border colours are set to 
white (colour one), and the screen is cleared (end of line 48). 
Our city is constructed by the double loop (I and J) from lines 
58 to 108. Note that a random colour (biack, blue or red) is 
selected by line 60. As this is outside the J loop, everything 
printed within a particular run of the J loop will be in one of the 
three colours, although buildings on either side (each complete 
Joop constructs one building) may well be in other colours. As 
you'll see when you run this, the effect is most impressive. 


The variables X and Y are both set equal to zero. The variable 
BY is set to ~ 1 inline 115. BY isthe bomb drop’ flag. (A flag is 
a variable within a program which is used to signal the presence 
for otherwise of a certain condition). In this case, the flag BY 
‘equals —1 when no bomb has been dropped, and changes to 
+l when a bomb has been dropped. BX is the X coordinate of 
the bomb when it is falling, and BX is set equal to zero in line 
HS. 


Line 120 prints a white blank where the plane has just been. By 
printing over the old plan position with a blank, and very 
shortly afterwards (line 168) printing a new plane, the illusion 
of a moving plane is created. In essence, as you saw earlier in 
the book, this is how most moving graphics programs work. An 
‘object is’ printed in one position, held there for a moment, 
erased, then reprinted in a different position, creating the 
impression that a single object has moved from one point tothe 
next, 
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Line 130 adds one to the value of X, which determines how far 
across the screen the plane will be printed. If X equals 22, then 
the plane has reached the side, so one is added to the value of Y, 
to move it one line down the screen, and X is reset to one to 
make the plane re-appear on the left hand side of the screen. If 
Y equals 22 (the end of line 148 checks for this) then the 
computer knows the plane has managed to reach the ground 
safely, so attention goes to line 248, where the “well done, 
you've made it”” message is printed. 


The contents of the square into which the plane will be printed 
is checked. If it is 32 then all is well. There is just empty sky 
ahead. Any other value (that is, not a space — code 32) then the 
computer knows the plane is about to crash, and the program 
oes to line 260 where the “you blew it”” message is printed. 
The plane is printed, by line 169, in its new position. 


Line 170 looks to the keyboard, to see if “*F"” for fire is being 
pressed. If it is, and the flag BY has the value — 1 (remember, 
BY changed to +1 when a bomb is in the air) then the starting 
position of the bomb is set equal to the current position of the 
plane, to ensure that the bomb will be seen to fall from the 
plane. Line 18@ checks the value of BY again, and if it is — 1, 
then goes back to line 1285 to repeat the print the blank, check 
for a crash, print the plane’ routine. 


If the bomb has been dropped, then the test on BY in line 180 
proves negative, so the GO TO 120 at the end of line 180 is 
ignored. Line 198 ‘unprints’ the bomb, 200 increments its 
downward position, and line 205 checks to see if the bomb has 
hit the ground (BY equals 22) and if it has, makes a noise, and 
returns to 120 (0 move the plane. PEEK is used again; this time 
to check if the bomb has hit the top of a building. If it has, the 
top of the building is erased, the bomb flag is set back to ~ 1, 
there is a tone, and the program returns to 128 to move the 
plane along. If the bomb has not hit something (so the PEEK 
finds a 32), the bomb is reprinted in its new position. Line 225 
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sends action back to 120 to move the plane. Notice that so long 
as BY equals +1, the ‘print the bomb’ cycle is traversed, until 
the bomb hits the ground or the top of a building. 


Congratulations are held by line 240: 
“CONGRATULATIONS — YOU MADE IT”. After atone, 
the program goes to line 288 where the instructions and option 
to play is displayed again. Line 260 holds the grim news of 
failure: "YOU CRASHED AND ARE NOW PART OF THE 
CITY SKYLINE”. A mournful tone is heard and the 
instruction/game option appears. 


‘You may wish to add a delay after lines 240 and 260 so that 
there will be a short pause between the end of one game, and the 
possibility of a new game. 


S POKES6, 27 *POKESS.255 

18 LETSC=7680:LETCS=38400 

28 GOSUB3S@ 

38 PRINT": :GOTO28@ 

4@ POKE36879, 25 :POKE36869, 255: PRINT") 


45 FORI=484T05@5 : POKECS+1,5:POKESC+I, 
2: NEXT 

58 FORI=1T020 

68 IFRND¢19<. STHENCO=2:GOTO7@ 

64 IFRND(1)<. STHENCO=2 °GOT078 

6 IFRND(1)<. STHENCO=6:GOTO70 

7@ FORJ=21T012+RND¢ 1 )#1@STEP~1 

89 POKESC+J#22+1,@:POKECS+J#22+1,00 
98 NEXTJ:POKESC+J#22+1, 1:POKECS+J#22+ 
rco 

100 NEXTI 

118 X=O:¥=d 

1: BX=d 

TO18Q: NEXTI :POKECS+¥822+x, 1 
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138 X=X+1 

148 [FX=22THENY=¥+1 °X=@: IFY¥=23THEN242 
158. IFPEEK(SC+¥#22+x) C32 THEN260 

168 POKESC+Y#22+X, 4: POKECS+Y#22+%,8 
178 GETAS: IFAS="F"ANDBY=—1THENBY= : BX 
=x-1 

188. IFBY=-1THENI28 

198 POKECS+BYK22+BX, 1 :POKESC+BY#22+BX 


232 

208 BY=BY+1 

205 IFBY=22THENBY=-1 :GOTO120 

218 IFPEEK(SC+BY#22+BX>C>S2THENGOTOZS 


@ 

220 POKESC+BY#22+Bx, 3: POKECS+BY#22+BX 
22 

225 GOT0120 

238 POKECS+BY#22+BX, 2: POKESC+BY22+BX 


32 
235 FORI=1T0150: NEXT : POKECS+BY#22+BX, 
1 


236 BY=~1:G0TO120 
248 POKESC-1+7#22+x, 4: POKECS~1+¥822+% 


5 

245 PRINT"IMMl CONGRATULATIONS, ¥ 
OU MADE IT!" 

25 GoTOZ80 

(268 POKESC+V#22+X. 6 = POKECS+Y#22+x,2 
265 FORI=1101300:NEXT 

263 PRINT"SWOU CRASHED AND ARE NOW 
PART OF THE CITY SKYLINE." 

288 POKE36969, 240: PRINT" MMITHE ENGINE 
OF YOUR PLANE HAS STALLED WHIL 
ST YOU ARE" 

282 PRINT"OVER A "5 

285 PRINTLARGE CITY.YOURONLY HOPE 0 
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F LANDING SAFELY IS TO FLATTEN THE C 
ITY WITH YOUR" 

286 PRINT"BOMBS.PRESS ‘F* TO RELER 
SE A BOMB;ONMLY ONE MAY BE FALLING A 
T ANY ONE") 

29@ PRINT"TIME. *:PRINT" Ma PRESS THE 
“9° KEY TO START. “N’ TO STOP, " 
308 GETAS 

318 IFAS="¥"THENGOTO48 

328 IFR$="N"THENSTOP 

338 GOTOSee 

35@ FORI=7168107207 :RERDN:POKE!,N:NEX 
13 


36@ RETURN 

419 DATA12?, 127. 127,73,73.73, 127, 127 
428 DATAQ, @,0,28,62,127,73.73 

438 DATAZSS. 255. 255,255,255, 255,255.2 
55 

44@ DATA36. 60.24, 24,60,60,60,24 

450 DATAQ, 144, 136,254,63,12,8,16 
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APPENDIX 
USING MATHS 


Here is a summary of the mathematical symbols on your 
computer, 


Usual Computer 
Symbol: Symbol: 
+ (plus) + 
— (minus) a 
x (multiply) * 
= (divide) / 


m® (raise to power) mfn 
‘The mathematical functions are: 
Computer Meaning: 


word: 

ATN ARGTANGENT 

SIN SINE 

cos COSINE 

TAN TANGENT 

INT Reduce to next lowest whole number 

SGN Sign (returns —1 if negative, 0 is zero, 1 if 
positive) 

ABS Returns number without its sign (so ABS 
~Sis5) 

SQR Square root 

LN Natural log 


EXP (see valentino) 
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tn The constant 3.14... 
VAL Returns the numerical value of a string 
DEF FN Defines a function, to be called up with FN. 
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